Option Explicit
Sub KopiereTabellen()
kopiereDaten ("Bank")
kopiereDaten ("Bar-Einnahmen")
kopiereDaten ("Bar-Ausgaben")
End Sub
Function kopiereDaten(ByRef name As String)
Dim lngLetzteZeile As Long
Dim lngErsteLeereZeile As Long
Dim wsEinnahmenAusgaben As Worksheet
Set wsEinnahmenAusgaben = ThisWorkbook.Sheets("EinnahmenAusgaben")
With ThisWorkbook.Sheets(name)
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(7, 1), Cells(lngLetzteZeile, 13)).copy
End With
With wsEinnahmenAusgaben
lngErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngErsteLeereZeile, 1).PasteSpecial xlPasteValues
End With
End Function