Sub tst()
Dim lngRowNum As Long
lngRowNum = returnRowNum(Sheets("Tabelle1").Range("E7"))
copyFormulaRange Sheets("Tabelle2").Range("f5"), lngRowNum
copyFormulaRange Sheets("Tabelle2").Range("g5"), lngRowNum
End Sub
Function returnRowNum(ByRef rng As Range) As Long
Dim rngLast As Range
Set rngLast = rng.Offset.End(xlDown)
returnRowNum = rngLast.Row - rng.Row + 1
End Function
Sub copyFormulaRange(ByRef rngFormula As Range, ByVal lngNum As Long)
Dim strFormula As String
strFormula = rngFormula.Formula2R1C1
Dim rngWork As Range
Set rngWork = rngFormula.Resize(lngNum, 1)
rngWork.Formula2R1C1 = strFormula
End Sub