Sub CombineAllSheets()
' Combines All Data in All Sheets to main page : Sheet1
Dim i As Long
Dim last1 As Long
Dim lasti As Long
For i = 2 To Sheets.Count
last1 = Sheet1.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
lasti = Sheets(i).Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
' Adjust to your own conditions
Sheets(i).Range("A2:D" & lasti).Copy Destination:=Sheet1.Range("A" & last1)
Next i
End Sub
Thank You...Hello,
You could test following macro
Code:Sub CombineAllSheets() ' Combines All Data in All Sheets to main page : Sheet1 Dim i As Long Dim last1 As Long Dim lasti As Long For i = 2 To Sheets.Count last1 = Sheet1.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 lasti = Sheets(i).Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 ' Adjust to your own conditions Sheets(i).Range("A2:D" & lasti).Copy Destination:=Sheet1.Range("A" & last1) Next i End Sub
Hope this will help
Hello,
An Excel file is a Workbook ...
Inside any workbook, you can have several Worksheets ...
So, when it comes to Consolidation, there are two possibilities :
1. Consolidate Worksheets ... (which is the title you have selected ... ) - (several sheets inside the same workbook ...)
Or
2. Consolidate Workbooks ... (which means consolidating several Excel files ...)
Hope this clarifies