makroda sıralama hatası

[kemalist]

makro ile sıralama sonrası hata veriyor.Örnek dosya ektedir.İlginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub SIRALA()
    With Sheets("MONEY")
        .Range("P3:P352").Copy
        .Range("AF3").PasteSpecial Paste:=xlPasteValues
        .Range("Q3:Q352").Copy
        .Range("AE3").PasteSpecial Paste:=xlPasteValues
        .Range("AE3:AF352").Sort Key1:=.Range("AE3"), Order1:=xlAscending, Header:=xlNo
        .Range("AF3:AF352").Copy
        .Range("B3").PasteSpecial Paste:=xlPasteValues
         Application.CutCopyMode = False
    End With
End Sub

 

[kemalist]

Teşekkür ederim Korhan Bey