VBA - Move Cell Down

[halper]

I am trying to write the VBA code to move down one cell and then print
a sheet. This is what I have so far but it code keeps failing. Any
help would be appreciated.

Sub MoveCell()
ActiveCell.FormulaR1C1 = "R[1]C[1]"
For i = 2 to 47
Range(Column("H"),Row(i).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub

As you can see I wan to keep the cell linked to Column H, but just
start at H2 and then move to H3, and so on.

Thanks,
Scott