Nur den Inhalt kopieren

Sub test()
Dim wsT As Worksheet
Dim wsS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False
Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wsT.Name = "Zusammenführung"
For i = 3 To Worksheets.Count - 1
Set wsS = Worksheets(i)
RowsT = wsT.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsS.Range("I4:M16").Copy Destination:=wsT.Cells(RowsT, 1)
Next i
Application.ScreenUpdating = True
End Sub