Hi,

I am trying to merge any x amount of sheets into a master sheet.

Right now I am trying to copy each 2nd row from the sheets into the master sheet.

Code:
Dim Master As WorksheetSet Master = Sheets("Master")

Dim WS_Count As Long
Dim I As Long
Dim LastColA As Long
Dim LastRowM As Long
Dim LastCol As Long

WS_Count = ActiveWorkbook.Worksheets.Count

Master.Range("A5") = "EID"
Master.Range("B5") = "Product Name"
Master.Range("C5") = "Number of Users Entitled"

For I = 3 To WS_Count

    LastRowM = Master.Range("A" & Rows.Count).End(xlUp).Row + 1
    LastColA = Worksheets(I).Range("A" & Rows.Count).End(xlUp).Row
    Worksheets(I).Range("A3:A" & LastColA).Copy Master.Cells(LastRowM, 1)
    Worksheets(I).Range("B3:B" & LastColA).Copy Master.Cells(LastRowM, 2)
    
    LastCol = Master.Cells(5, Columns.Count).End(xlToLeft).Column + 1
    Worksheets(I).Range(Cells(2, 4), Cells(2, Columns.Count)).Copy Master.Cells(5, LastCol)
Next I
I believe this line is the one that is not working:
Code:

Worksheets(I).Range(Cells(2, 4), Cells(2, Columns.Count)).Copy Master.Cells(5, LastCol)
So that line is supposed to copy Range D2:EndCellInRow and paste it to the next open cell in Row 5 in mastersheet

Any ideas what is wrong?