Im folgenden Code wird die Zeilennummer der letzten gefüllten Zelle in Spalte B zum kopieren verwendet.
Was muss ich ändern, wenn ich zum kopieren die Max-Zeilennummer der letzten gefüllten Zelle in den Spalten B,D,G,H,I,J,K benötige.
Sub BereichKopieren2()
Dim LeZeBDGHIJK As Long
LeZeBDGHIJK = Cells(Rows.Count, 2).End(xlUp).Row
Range("B4:K" & LeZeBDGHIJK).Copy Range("T1")
End Sub
Besten Dank für die Hilfe und Servus, Walter