聞いておいて遅レスごめんなさい。
　コマンドボタンの間違いです。
　色々調べてみたのですが、変数の定義の仕方そのものがよく理解できていなくて

　わからないなりに考えたのが↓です

Sub test_Click()
Dim h As Long
h = Range("A1").Value
If h = 0 Then
h = 1
Else
h = h + 1
End If
End Sub

　もうちょっと頑張ってみます