VBA filtre fonksiyonu 1004 hatası

[dp.songül]

Merhaba,
bir exceli diğer excel formatına çevirmek için hazır makrom var. Hatalı bi kaç sütunu düzelttim ama filtre fonksiyonu yoktu, sonradan ekledim. Sanırım bir yerde yanlış yapıyorum. Bu işte pek iyi değilim. Fonksiyon adımlamada çalışıyor .Fakat dosya oluştur dediğimde hata veriyor. wsCopy.Range("D4").Select alanında 1004 hatası verdi. Bana yardımcı olabilir misiniz?
....

Set wsCopy = Workbooks(strFileName).Worksheets(1)
Set wsDest = Workbooks(strFileName2).Worksheets(1)
Set wsListID = Workbooks("MakroFTC.xlsm").Worksheets(1)

IDkismi = wsListID.Range("B3").Value
FTCcustıd = IDkismi & "_CUSTID_"
FTCkumeıd = "FTC_" & IDkismi
FTCprjtipi = "FTC_iptal_Yeni_Satis"
FTCprjalttipi = "FTC_iptal_Yeni_Satis"

    wsCopy.Range("D4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$4:$T$847").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "4/22/2022", 1, "5/31/2022", 1, "6/29/2022", 1, _
        "7/31/2022", 1, "8/25/2022", 1, "9/29/2022", 1, "10/21/2022")
    Rows("12:502").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    Range("C4").Select
    
  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "C").End(xlUp).Row
  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row

.....

 

[maliex]

wsCopy.Select
wsCopy.Range("D4").Select

Bu şekilde bir deneyebilirmisiniz

 

[dp.songül]

wsCopy.Select yaptığımda da hata verdi
Çalıştırma hatası 1004
"nesne seçimi" yöntemi _worksheet başarısız oldu diyor

 

[dp.songül]

*Set kaynak ve Set kaynak1 arasına ActiveCell.Offset kodu ile filteyi uygulayabildim.
Aslında filtre uyguladığım aralık her ay değişecek bunu son 6 aydan önceki verileri filtreleyip silsin olarak nasıl uyarlayabilirim?

Set wf = Application.WorksheetFunction
kYol = "C:\Users\" & Environ("username") & "\Desktop\"
strFileName = ThisWorkbook.Sheets(1).Range("B1").Value
strFileName2 = ThisWorkbook.Sheets(1).Range("B2").Value
Set kaynak = Workbooks.Open(kYol & strFileName)

ActiveCell.Offset(3, 3).Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$4:$T$957").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "4/27/2022", 1, "5/29/2022", 1, "6/27/2022", 1, _
        "7/29/2022", 1, "8/29/2022", 1, "9/30/2022", 1, "10/21/2022")
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(-2, 3).Range("A1").Select
    Selection.AutoFilter
    ActiveCell.Offset(-3, -3).Range("A1").Select
    
Set kaynak1 = Workbooks.Open(kYol & strFileName2)
Set wsCopy = Workbooks(strFileName).Worksheets(1)
Set wsDest = Workbooks(strFileName2).Worksheets(1)
Set wsListID = Workbooks("GuncelMakroFTC.xlsm").Worksheets(1)