Arbeitsblätter zu einem zusammenfügen

[ralf_b]

versuchs mal damit. hier wird davon ausgegangen das mehrere Blätter markiert sind. Die erste Zeile muß nicht vorher gelöscht worden sein. 
Den Namen des Zielblattes noch anpassen im Code 

Code:

Sub tst()

Dim i&, sh As Worksheet, arr
Dim shnew As Worksheet
Set shnew = Worksheets("Tabelle4") 'name des Zielblattes
i = 1
For Each sh In ThisWorkbook.Windows(1).SelectedSheets
  
  If i = 1 Then
   arr = sh.UsedRange.Value
  Else
    arr = sh.UsedRange.Offset(1).Resize(sh.UsedRange.Rows.Count - 1).Value
  End If
 
  i = shnew.UsedRange.SpecialCells(xlCellTypeLastCell).Row
  shnew.Cells(i + 1, "A").Resize(UBound(arr), UBound(arr, 2)) = arr
  
Next
End Sub