Zum Beispiel mit so:
 

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