Soru tarih kısmını bir hücreye bağlamak istiyorum

[com5]

Merhaba;
Makroya yeni başladım
Aşağıda belirttiğim satırdaki verideki tarih kısmının bir hücreye (=ÖZET!j4)'e bağlamak istiyorum. Yardımcı olabilirmisiniz
sorunlu satırım xlFilterValues, Criteria2:=Array(2, "5/17/2021")

Sub veri()
'
' veri Makro
    Range("J4").Select
    Selection.Copy
    Sheets("VERİ").Select
    ActiveSheet.Range("$A$1:$T$1747").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "5/17/2021")
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("RAPOR").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("E1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("H2").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Columns("K:L").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:P").Select
    Selection.Delete Shift:=xlToLeft
    Range("M2").Select
End Sub