Consolidate multiples rows in one sheet

[Goalexcel]

Hello Expert Team
Please kindly give me some help, multiples sheets need to copy in one sheet name Report. I am using below code but it's not copy. My excel file contained sheet 1 until sheet 8, column A and Column B rows always change the data.

Sub Consolidate()

Dim i As Integer

For i = 1 to Worksheets.Count = 1

Worksheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(x1Down)).Select
Range(Selection, Selection.End(x1TopRight)).Select
Selection.Copy

Worksheets("Report").Select
Range("A1048576").Select
Selection.End(x1Up).Select
ActiveCell.Offset(1,0).Select
ActiveSheet.Paste

Next i

End sub

Please check below attach, sheet start 1 until sheet 8, usually will be change the number of sheets.

See sheet report

 

[Michael M]

MAybe this way

Sub MM1()
Dim i As Integer, n As Integer
n = 1
For i = 1 To 8
    With Sheets("Sheet" & i)
        .Range("A:B").Copy
        Sheets("Report").Cells(1, n).Insert
    End With
n = n + 2
Next i
End Sub

 

[Goalexcel]

MAybe this way

Sub MM1()
Dim i As Integer, n As Integer
n = 1
For i = 1 To 8
    With Sheets("Sheet" & i)
        .Range("A:B").Copy
        Sheets("Report").Cells(1, n).Insert
    End With
n = n + 2
Next i
End Sub

Thank you so much Mr. Michael for your excellent and fastest assistance. All the best wishes for the Expert Professional Comunity.

 

[Michael M]

Glad to help...