Try the following. Replace ("WorkSheetToIgnore") with the name of your sheet. Please use code tags when posting any code.
Sub Merge()
Dim ws As Worksheet
ActiveSheet.UsedRange.Offset(0).Clear
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> Sheets("WorkSheetToIgnore") Then
If ws.Name <> ActiveSheet.Name Then
ws.UsedRange.Offset(4).Copy
With Range("A65536").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
End If
End If
Next ws
End Sub
Bookmarks