logic2design
7/25/2013 - 12:24 AM

Merge Excel worksheets - Down Run from the worksheet you wan the merged data to be pasted to

Merge Excel worksheets - Down

Run from the worksheet you wan the merged data to be pasted to

Merge Down
content_copyfile_download
Sub Merge_Down()
Dim ws As Worksheet
ActiveSheet.UsedRange.Offset(0).Clear
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.UsedRange.Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub