There are a couple of ways to do it without recording the macro. If you know the range (e.g., it's always rows 2 through 50):
Sub ZeroCells_KnownRange()
' First, open some variables for our starting and ending rows and our counter
Dim intStart, intEnd As Integer
Dim i As Long
' Next, we'll set our starting and ending rows.
intStart = 2
intEnd = 50
' Finally, we'll go ahead and run our loop, which will move from our start to end row and
' set the values to zero. This assumes the column is "A".
For i = intStart To intEnd
Range("A" & i).Value = 0
Next i
End Sub
If you only know where it starts:
Sub ZeroCells_UnknownRange()
' First, open some variables for our starting and row and our counter
Dim intStart AsInteger
Dim i As Long
' Next, we'll set our starting row.
intStart = 2
' Finally, we'll go ahead and run our loop, which will move from our start until it finds an empty cell and
' set the values to zero. This assumes the column is "A".
Do While Range("A" & i).Value <> ""
Range("A" & i).Value = 0
Loop
End Sub
There are other ways to do it, such as if you only want certain cells zeroed out (only cells that contain a "1", for instance), or if you have no idea what the starting/ending rows are. If you need one of those, let me know and I'll be more than happy to help!
Incidentally, using the "Record Macro" option is a great way to learn how to do stuff.
Good luck!