Sub berechne_flaechen_inhalt()

Dim seite_A(1 To 20) As Double
Dim seite_B(1 To 20) As Double
Dim flaechen_inhalt(1 To 20) As Double

zeilen_offset = 4

'lesen
For i = 1 To 5
    w = i + zeilen_offset
    seite_A(i) = ActiveWorkbook.Worksheets("page_C").Range("A" & w).Value
    seite_B(i) = ActiveWorkbook.Worksheets("page_C").Range("B" & w).Value
    flaechen_inhalt(i) = seite_A(i) * seite_B(i)
Next i

'schreiben
For i = 1 To 5
    w = i + zeilen_offset
    ActiveWorkbook.Worksheets("page_C").Range("D" & w).Value = flaechen_inhalt(i)
Next i

End Sub