Wert bei Zählschleife in Zelle schreiben

Hallo user!
Wie kann ich mir das Ergebnis nicht nur in der Message-Box anzeigen, sondern auch in eine bestimmte Zelle (Bsp. ("A1")) schreiben lassen?
Ich beomm es nicht hin.

Dim dValue As Double
Dim iCounter As Integer
For iCounter = 1 To 100
dValue = dValue + iCounter * 1.2
Next iCounter
MsgBox "Ergebnis: " & dValue