Merge multiple sheets in to one

[balima]

Hello everybody!

I'm a new excel user and I need help to combine multiple sheets from one workbook in to one sheet.

I actually came across a macro by Nehpets12 that does the job nicely but I need the copying to start at cell A12.

Sub Merge()
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

Thanks in Advance

 

[DyLinn]

Thank you! This helped me a bunch today! I appreciate it!!

Hello everybody!

I'm a new excel user and I need help to combine multiple sheets from one workbook in to one sheet.

I actually came across a macro by Nehpets12 that does the job nicely but I need the copying to start at cell A12.

Sub Merge()
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

Thanks in Advance

 

[excelbee2013]

If you required Add-In to merge sheets then surely you can download Add-In from here. Same is also available as a macro.

Reg,
ExcelBee