Sub Rechnunganlegen()
'
' Rechnunganlegen Makro
'
Dim lrow&
Dim wsr As Worksheet

Set wsr = Worksheets("Rechnungen")
lrow = Sheets("Rechnungen").Cells(Rows.Count, 1).End(xlUp).Row + 1
   
  With Sheets("Vorlage")
    wsr.Range("A" & lrow) = .Range("B12")
    wsr.Range("B" & lrow) = .Range("B11")
    wsr.Range("D" & lrow) = Range("E12")
    wsr.Range("E" & lrow) = Range("F25")
  End With
End Sub