Copiar datos de una hoja a otra con vba con condición

On Error Resume Next
DisplayAlerts = False

Dim conta As Integer
f = 2
f1 = 2
f2 = 7
While Cells(f, 1) <> Empty
dato = Cells(f, 3)

Buena noche una consulta quiera copiar los datos de una hoja a otra dependiendo de una condición pero no logro hacerlo por el momento tengo esto no me funciona nada. Gracias

While Cells(f1, 1) <> Empty
dato1 = Cells(f1, 5)
If dato < dato1 Then
Sheets("minmax").Range("A" & f1 & ":H" & f1).Copy Destination:=Sheets("Pedidos").Range("A" & f2)
conta = conta + 1
f2 = f2 + 1
End If
f1 = f1 + 1
Wend
f1 = 2
f = f + 1
Wend

DisplayAlerts = True
Application.ScreenUpdating = True