Trying to copy/paste rows matching a date value

Try:

Sub dubcap01()
Dim i As Long

        With Sheets("Temp")
            .Cells.ClearContents
            .Range("A1:D1").Value = Sheets("Uplifts").Range("A1:D1").Value
        End With
        
        With Sheets("Uplifts")

            .Range("A2:A" & .Range("A" & Rows.Count).End(3).row).NumberFormat = "[$-409]d-mmm-yy;@"
            For i = 2 To .Range("A" & Rows.Count).End(3).row
                If .Cells(i, "A") = Date Then
                .Range(.Cells(i, "A"), .Cells(i, "D")).Copy Sheets("Temp").Range("A" & Rows.Count).End(3)(2)
                End If
            Next i
        End With

End Sub