хочу отфильтровать WS по сегодняшней дате и скопировать результат на другой лист

Question

у меня есть рабочий лист ("MASTER LOG-1"), в который вводятся дневные данные, и я хочу отфильтровать данные за сегодняшнюю дату IN COLUMN RANGE ("V7:V2500") и скопировать данные результатов во всех столбцах на другой рабочий лист ("RFI") как я могу это сделать

Sheets("MASTER LOG-1").Range("$V$7:$V$2500").AutoFilter _
    Field:=4, Criteria1:=">=" & Date

**ANOTHER ONE**


Dim lastrow As Integer

Worksheets("MASTER LOG-1").Activate
lastrow = Worksheets("MASTER LOG-1").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("MASTER LOG-1")
AutoFilterMode = FASLE
strSearch = "TODAY()"
With .Range("V7:V" & lrow)
        .AutoFilter Field:=32, Criteria1:="=*" & strSearch & "*"

End With
For i = 7 To lastrow

If Worksheets("RFI DETAILS").Cells(1, 2) = "" Then
    erow = 1
Else
erow = Worksheets("RFI DETAILS").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

End If

Worksheets("MASTER LOG-1").Range(erow, 5).Copy
Worksheets("RFI DETAILS").Range(erow, 2).Paste

Next


End With
End Sub