Spostare righe se la condizione data è presente

Option Explicit
Sub sposta()
Dim ur, rg, X
rg = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row + 1
ur = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For X = ur To 3 Step -1
    If IsDate(Sheets("Foglio1").Cells(X, 25)) Then
        Sheets("Foglio1").Rows(X & ":" & X).Copy
        Sheets("Foglio2").Cells(rg, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets("Foglio1").Rows(X & ":" & X).Delete Shift:=xlUp
        rg = rg + 1
    End If
Next
End Sub