Makro viel zu langsam

Sub Menge_pro_Ausstattung()
Dim a As String
Dim i, S, last_RT, last_Aus, Z As Integer
last_RT = Cells(2, Columns.Count).End(xlToLeft).Column
last_Aus = Sheets("Komplettdatei mit D.").Cells(9, Columns.Count).End(xlToLeft).Column
Range(Cells(24, 2), Cells(164, last_RT)).Select
Selection.Clear
For Z = 24 To 164
For S = 2 To last_RT
a = Cells(9, S)
For i = 2 To last_Aus
If Not IsEmpty(Sheets("Komplettdatei mit D.").Cells(Z, i)) Then
If Sheets("Komplettdatei mit D.").Cells(9, i).Text = a Then
Cells(Z, S).Value = Cells(Z, S).Value + Sheets("Komplettdatei mit D.").Cells(Z, i).Value
Else
End If
End If
Next i
Next S
Next Z
End Sub