Sub MyFilterCode()
Dim lr As Long
Dim rng As Range
' Find last row in column C with data
lr = Cells(Rows.Count, "C").End(xlUp).Row
' Set range to filter
Set rng = Range("A4:Z" & lr)
' Set filter
rng.AutoFilter
rng.AutoFilter Field:=3, Criteria1:=">=1/1/2024", Operator:=xlAnd, Criteria2:="<=12/31/2024"
End Sub