was muss ich wie ändern, wenn die Daten in die jeweils nächste leere Zeile des Bereichs übernommen werden sollen. Die Daten werden in das in B1 stehende Tabellenblatt übernommen.
Sub uebertragen()
Dim s As String
Application.ScreenUpdating = False
s = Sheets("Tabelle1").Range("B1").Value
Sheets("Tabelle1").Range("A2:B150").Copy
Sheets(s).Select
Range("A4").Select
ActiveSheet.Paste
Columns("B:B").ColumnWidth = 41
Range("A2").Select
Sheets("Tabelle").Select
End Sub
Vielen Dank für die Hilfe
Georg