Hi just add a module and paste this in, you can either run it via a command button or give it a keyboard shortcut

Sub removeblank()
Dim Rng As Range
Dim MyCell
Dim i
i = 1
Set Rng = Range("C9:C119")
For Each MyCell In Rng
If MyCell = Null Or MyCell = 0 Then
MyCell.EntireRow.Delete
End If
i = i + 1
Next
MsgBox "There were " & i & " Rows Deleted!"
End Sub
Regards,
Simon