Moving to next column every click automatically in vba

Question

I want to go to next column every each click on the button, i have tried this but not work

Dim i As Integer
If i = 0 Then
i = 4
End If
i = i + 1
ffc = ActiveC