Public Sub Übertragen()
Dim loLetzte As Long
With Worksheets("Blatt_in_das_du_übertragen_willst")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(loLetzte, 1).FormulaR1C1 = "=ROW(R[-1]C)"
.Cells(loLetzte, 2).FormulaR1C1 = "=Rechnungsvorlage!R[15]C[6]"
.Cells(loLetzte, 3).FormulaR1C1 = "=Rechnungsvorlage!R[12]C[5]"
.Cells(loLetzte, 4).FormulaR1C1 = "=TEXT(RC[-1],""MMMM"")"
.Cells(loLetzte, 5).FormulaR1C1 = "=Rechnungsvorlage!R[13]C[3]"
.Cells(loLetzte, 7).FormulaR1C1 = "=Tabelle1[[#Totals],[Gesamtbetrag]]"
End Sub