Excel VBAで範囲から値を求めるには

Question

Sub max()
Dim ws2 As Worksheet
Set ws2 = Worksheets("Sheet2")

Dim maxVal1 As Variant, maxVal2 As Variant
Dim i As Variant, h As Variant
Dim rng1 As Variant, rng2 As Variant

Dim LASTROW As Long
LASTROW = ws2.Cells(Rows.Count, 1).End(xlUp).Row
rng1 = ws2.Range(Cells(2, 3), Cells(LASTROW, 3))
rng2 = ws2.Range(Cells(2, 4), Cells(LASTROW, 4))

maxVal1 = WorksheetFunction.max(rng1)
maxVal2 = WorksheetFunction.max(rng2)

For i = 2 To LASTROW
Cells(i, 8).Value = Cells(i, 3) / maxVal1
Next

For h = 2 To LASTROW
Cells(i, 9).Value = Cells(i, 4) / maxVal2
Next

End Sub

<エラー部分>
割り算を順にするのですが、I列が空欄となります。"I9"のセルが"0"と入力されてしまいます。修正すべき方法などお教えいただければ幸いです。

<やりたいこと>
①C列とD列、それぞれの列ごとに最大値を取得
②次にC2のセルですと　H2=C2/C列の最大値、値をH2に貼り付け、
H3=C3/C列の最大値、最終行までデータ取得
③さらに、I2=D2/D列の最大値、値をI2に貼り付け、データ一番下行までデータ取得
下記のようにしたいと思っています。

ご教示のほど、どうぞよろしくお願いいたします。

Answer 1

For h = 2 To LASTROW
を
For i = 2 To LASTROW
に変えてください。

Comments

[koko2]

教えてくださった通り修正しましたら問題なく出来ました。
回答ありがとうございました。