Clicking the command button more than twice

Hello,

I have a command button (titled "Out1") and when clicked it enters "1" into cell H6. I am wanting users to be able to click the command button again and then enter "1" into cell I6. and then a third time to put "1" into I6. Can this be done?

Here is my code for this:

Private Sub Out1_Click()

Range("H6").FormulaR1C1 = "1"

End Sub

Or, perhaps this may be easier if the command button was set to place a "1" to the right a column every subsequent time it was pushed. Is it even possible to push the command button more than once?