Automatización con macros de excel

Necesito hacer un programa donde se tiene una columna de 7 por 7.. La cual digamos que en la columna 4 existen valores de 60 65 50 55 etc....necesito buscar valores que estén entre 50 y 55.. Una vez que busque copiarme todas las filas que contengan esos valores a una hoja diferente del mismo libro...

Tengo una programación pero me marca error y llevo dos días en intentar salir del error.. Por favor si me ayudan gracias..

' clasificar
For i = 2 To 7
If (Cells("i,4") >= 60 And Cells(i, 4) <= 65) Then======ERROR
Worksheets("Automatizar").Range("Ai:Ki").Copy
Worksheets("Clasificar").Range("Ai:Ki").PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If
Next i