すいませんが、ご指導お願いいたします。

sheets("sheet1")のＩ列2行目から

Ｉ列のセルに"本賞金"を見つけたら

左隣の同じ行の値をＩ列の同じ行に取得したいのですがが、

コードの組み合わせがうまくいきません。

ご指導もどよろしくお願いいたします。

�@　sheets("sheet1")のＩ列2行目からＩ列最終行まで

　　>For i = 2 To Range("Ｉ" & Rows.Count).End(xlUp).Row + 1

�A　セルの先頭文字の"本賞金"を見つける

　　＞m = Application.Match("*本賞金", .Columns(9), 0)　’Columns(9) Ｉ列

�B　同じ行のＨ列（左隣の同じ行）の値を取得するを続ける。

　　＞左隣のセルの値をコピー
　　　.Value = .Offset(0, -1).Value

.Columns(9)で不完全エラーになります。

　　Sub Test()

　　　Dim m As Variant
      Dim i As Long 

      Worksheets("sheet1").Select

      m = Application.Match("*本賞金", .Columns(9), 0)
        If Not IsError(m) Then
            For i = 2 To Range("Ｉ" & Rows.Count).End(xlUp).Row + 1
                .Value = .Offset(0, -1).Value
           End If

      End Sub

ご指導おねがいいたします。
ＯＳ　Windows7
エクセル　２０１０


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

Sub test()
    Dim m As Variant
    Dim i As Long
    
    With Worksheets("sheet1")
        m = Application.Match("*本賞金", .Columns(9), 0)
        If Not IsError(m) Then
            .Cells(m, 9).Value = .Cells(m, 8).Value
        End If
    End With

End Sub

もしくは
Sub test()
    Dim ws As Worksheet
    Dim c As Range
    
    Set ws = Worksheets("sheet1")
    For Each c In ws.Range("I2", ws.Cells(Rows.Count, 9).End(xlUp))
        If c.Value Like "*本賞金" Then
             c.Value = c.Offset(0, -1).Value
        End If
    Next
    
End Sub