Visual Basic - ayuda con for

Me marca error . dice "loop sin for"..

Según yo está bien... alguien me puede ayudar=?=.. gracias.


Sub elimina_filas_vacias()
'
' Macro para eliminar las filas vacias en la hoja "historia"
'
Sheets("historia").Select
Application.ScreenUpdating = False


ActiveCell.SpecialCells(xlLastCell).Select
n = ActiveCell.Row
Range("b1").Select

For i = 0 To n
If ActiveCell = "" Or IsNull(ActiveCell) Then
Selection.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
End If
Loop


Application.ScreenUpdating = True

End Sub

Es que un "For" no se cierra con "Loop", sino con Next.

siiiii que tonto me di cuenta despues que lo mande... Duda resuelta. Despues de cerrar el for con next, me di cuenta de que el error me lo mandaba tambien porque no ponia end if a los if dentro del for... Gracias x su ayuda