Ich möchte von Sheets "Nachsortierte Ware" den Bereich A1:I2 und einen mit der Maus makierten Bereich,
in Sheets"Drucken" ab der zweiten leeren Zelle kopieren.
Zb. Sheets"Nachsortierte Ware"A1:I2 & A50:I60" kopieren, und in Sheets "Drucken" suchen wo in Spalte A die 2 leere Zelle ist, dort dann einfügen.
Mein Makro funkt. so leider nicht.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Sub kopieren2() 'Nachsortierte Ware
Application.ScreenUpdating = False
Dim ac As Long, a As Long
Sheets("Nachsortierte Ware").Range("A1:I2").Copy
For a = 1 To ac
Selection.Areas(a).Copy _
Sheets("Drucken").[a3].End(xlUp).Offset(1, 0)
Next
Sheets("Drucken").Paste
Application.ScreenUpdating = True
End Sub