Como optimizar macro en excel

Tengo esta macro que me funciona bien, pero es un poco lenta, lo otro es que la macro en una parte que tengo que organizar los resultados donde los pego me toca organizar de la z-a para que no me tome los valores = 0, si se puede hacer algo pero igual pues no es que sea algo con lo que no pueda trabajar. Les dejo el codigo para que me ayuden por favor mi gracias.

Sub BUSCA_MATERIAL()

'

Application.ScreenUpdating = False

' BUSCA_MATERIAL Macro

    Range("Z1").Select

    Selection.AutoFill Destination:=Range("Z1:Z5500"), Type:=xlFillDefault

    Range("Z2:Z5500").Select

    Selection.Copy

    Range("J9").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("J9"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("J9:J5600")

        .Header = xlNo

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("Z2:Z5500").Select

    Selection.Delete Shift:=xlUp

    Range("J9").Select

End Sub