combine Sheet

[Rahulwork]

Hi Everyone,

I need your small help in execute a macro to combine sheet

i have three sheet by the name of sheet1, sheet2 and sheet3

all have same headers and data avaiable in A1:C10

i want to combine all three sheets into one.

kindly help

 

[onlyadrafter]

Hello,

Into which sheet do you want to combine them?
How do you want to combine them? Which ranges?

 

[Rahulwork]

I have three sheet by the name of Class A Class B and Class C and having same row header

- want to combine them in 4th sheet which name is consolidate
- I want to combine these three sheet like we can do manually all data of class A and then post class A, all data of class B and so on
- there shouldnt by any range but should start from B1 of each sheet and end should be last value cell

 

[mohadin]

Hi
Try

Sub Loopthrough()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("sheet1").Range("a1:c1").Copy Sheets("consolidate").Range("a1:c1")
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Name <> "consolidate" Then
            With sh
                a = .UsedRange.Offset(1)
                Sheets("consolidate").Range("a" & Sheets("consolidate").Cells(Rows.Count, 1).End(xlUp).Row + 1) _
                        .Resize(UBound(a, 1), UBound(a, 2)) = a
                 Cells(1, 1).Select
            End With
        End If
    Next sh
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub