Problema con macro

Buenas tardes,

estoy ejecutando una macro para borrar ciertas lineas de una hoja de excel. Cuando la ejecuto yo funciona perfectamente, pero al automatizarla para que se ejecute al abrir la hoja, ahi unas filas que cambian de altura.

Adjunto el código de la macro.

Sub eliminarfilavacia()
For Fila = 35 To 178
If Cells(Fila, 7).Value = "###" Then
GoTo fuera
End If
If Cells(Fila, 7).Value = "" Then
Rows(Fila).Delete
End If
If Cells(Fila, 7).Value >= 1 Then
Fila = Fila + 7
End If
If Cells(Fila, 7).Value = "0" Then
For i = 1 To 7
Rows(Fila).Delete
Next
Fila = Fila - 1
End If
Next Fila
fuera:
End Sub

Saludos y gracias.

Jordi