エクセルVBAについて質問です。

Sub Macro1()
'
' Macro1 Macro
'

'検索用文字列 検索したい単語を増やす場合は、a(2) の 2を 増やしてください。
Dim a(2) As String
Dim f(2) As String


'検索したい文字列を セットします。 単語を 増やした場合は、追加してください。
a(1) = "hatena"
a(2) = "momonga"

'C列セット文字列
f(1) = "hatena"
f(2) = "mon"

For e = 1 To 65536
    c = Cells(e, 1)
    If c = "" Then Exit For
    For b = 1 To UBound(a)
        If InStr(c, a(b)) > 0 Then
            Cells(e, 2) = Trim(Left(c, InStr(c, a(b)) - 1))
            Cells(e, 3) = f(b)
            Exit For
        End If
    Next b
Next e
End Sub

C列は、キーとなる文字列以降かなと勘違いしてました。