Sub kopieren()
Dim zielBlatt As Worksheet
Dim quellBlatt As Worksheet
Dim zielBereiche As Variant
Dim quellBereiche As Variant
Set zielBlatt = Worksheets("Parameterschnittstelle_Inventor")
Set quellBlatt = Worksheets("Parameter")
zielBereiche = Array("G37", "G41", ... etc.)
quellBereiche = Array("H8", "H9", etc.)
Dim i As Integer
For i = LBound(zielBereiche) To UBound(zielBereiche)
zielBlatt.Range(zielBereiche(i)).Value = quellBlatt.Range(quellBereiche(i)).Value
Next i
End Sub