Ich habe mal wieder ein Problem und zwar habe ich 2 Tabellen aus Tabellenblatt "Report" sollen gewisse Bereiche bis zur letzten beschriebene Zeile kopiert werden und in den Bereich von wo Sie kopiert worden sind in Tabellenblatt "Haupttabelle" ab der letzten beschriebenen Zeile der Spalte "B" eingefuegt werden. Wie muss ich mein Code umstellen damit dieser Code das umsetzt?
Hier mein Code:
Private Sub CommandButton5_Click()
Dim lz01&
lz01 = Range("B" & Cells.Rows.Count).End(xlUp).Row
Sheets("Report").Range("B5:G" & lz01 & ",M5:M" & lz01 & _
",P5:Y" & lz01 & ",AA5:AA" & lz01).Copy
Worksheets("Haupttabelle").Activate
Sheets("Haupttabelle").Range("B5:G" & lz01 & ",M5:M" & lz01 & _
",P5:Y" & lz01 & ",AA5:AA" & lz01).PasteSpecial Paste:=xlPasteValues
End Sub