VBA for文について

Question

【初投稿】
sheet1に単価・sheet2に個数があるのですが、
sheet1の単価をsheet2の個数に掛けた金額をsheet2のセルに出したいのですが、この文で成り立つでしょうか？
単価や個数が変わっても、常に最終行まで処理されるようにしたいです。
※コードの金額・単価部分は、Excelでは数字入ってます。

Sub sample()

 Dim i As Long
 For i = 1 To Cells(Rows.Count,1).End(xlUp).Row
  Cells(i,金額）= Worksheet("sheet1").Cells(i,単価）*　Worksheet("sheet2")Cells(i * 個数）
Next

End Sub

Answer 1

Sub sample()
    Dim i As Long
    With Worksheet("sheet2")
        For i = 1 To .Cells(.Rows.Count,1).End(xlUp).Row
            .Cells(i, 金額) = Worksheet("sheet1").Cells(i, 単価) * .Cells(i, 個数）
        Next
    End With
End Sub

ピリオドの有無にご注意ください。