Problemita en el código de macro

Estimados todos , quisiera que la variable seccion tomara el valor que haya
en la celda cells(fila, columna) para , en función del valor que tome
seccion borrar la fila en la que se encuentra ese valor o no. El deurador se
me para en " seccion = Cells(fila, columna).Value " ¿por que? "
Gracias


Sub Borrar_Secciones()

Dim fila As Integer
Dim columna As Integer
Dim seccion As Integer
columna = 1
fila = 1
Do
seccion = Cells(fila, columna).Value
If seccion = 0 Or seccion = 7 Or seccion = 13 Then Rows(fila, fila).Delete
shift
End If
fifa = fila + 1
Cells(fila, columna).Activate
Loop Until IsEmpty(ActiveCell)

End Sub