تعديل على كود

[yasser_w_2010]

Sub Macro1()
' Macro1 ماكرو'
    Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("P3:P4"), CopyToRange:=Range("A5:DM5"), Unique:= _
        False
   End Sub

هل يمكن عمل هذا الكود بحيث ريحل البيانات كل مره في اخر صف فيه بيانات 

بدون مسح البيانات المرحله مسبقا