お世話になります。
VBAについてご教示お願い致します。
E列とH列の値が一致した場合に、F列にI列の値を出力し、最後の行まで処理します。というソースをつくりました。
しかし値が出力できません。解決策をご教示お願い致します。

Sub CompareAndOutput()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' 対象のシートを指定
Set ws = ThisWorkbook.Sheets("normal-item") ' シート名を適切なものに変更してください

' E列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

' E1とH1の値が一致した場合に、F1にI1の値を出力
If ws.Cells(1, "E").Value = ws.Cells(1, "H").Value Then
ws.Cells(1, "F").Value = ws.Cells(1, "I").Value
End If

' 最後の行まで処理
For i = 2 To lastRow
If ws.Cells(i, "E").Value = ws.Cells(i, "H").Value Then
ws.Cells(i, "F").Value = ws.Cells(i, "I").Value
End If
Next i
End Sub