投稿/コメントを表示します。

多くの方が書いていますが、シンプルな書き方が参考になりました。
Sub sisomaki()
    Dim siso
    Dim nomi
    Dim kanpyo
    Dim gyo
    For gyo = 4 To 33
        If Range("C" & gyo).Value = "しそ巻き無料" Then
            siso = siso + 1
        ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
            nomi = nomi + 1
        ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
            kanpyo = kanpyo + 1
        End If
    Next
    Range("F4").Value = siso
    Range("F5").Value = nomi
    Range("F6").Value = kanpyo
End Sub

2015/09/03 09:06