macro to read the contents from 2 columns(A &B) and display the results in thiRD column(c

hi,

i have 2 columns

A.B

i just want to multiply A*F and the result need to come in "H" and total of columm "H" need to come in column "I"

i tried the following code.But it only reads only first row.
pls help
Manoj

Sub Button51_Click()
RowCounter = Intersect(ActiveSheet.UsedRange, Columns("A:F")).Rows.Count
 For I = 1 To RowCounter
 
 Worksheets("dataentry").Range("h2").Value = Worksheets("dataentry").Range("d2").Value * Worksheets("dataentry").Range("f2").Value

Next I

End Sub