Ayuda con macro

[sydfloyd]

Holas:

Tengo un problema con un código de una macro. Necesito que la macro me oculte todas las filas (completas) en las cuales el dato de la primera columna sea igual al de la fila anterior.
Mi idea es que un for haga el chequeo pero solo revise las filas que tienen informacion, es decir que el ciclo se detenga en la última fila de datos;asi:

If i = Range("65536").Value Then Exit For

pero no se programar el criterio para ocultar las filas.
Agradeceria mucho si alguien me pudiera ayudar.

Saludos

[Monimo]

mira te pongo el caso de que oculte la fila completa en caso de q el valor de la fila que evalúas sea igual a la FILA anterior porque no entendí muy bien eso de la primea columna con la fila anterior, cambia la condición como te favorezca.

Sub ocultar_filas()
i = 2
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop

End Sub

[sydfloyd]

Muchas gracias por tu pronta respuesta, me funciona perfecto.
Vale