Macro : Copy data from two Worksheets and Join together in third

Question

My excel file, has multiple tabs. One of the Sheets is "Employee Access Arranged" and another is "IERWAA Lookup Arranged". Both these sheets have the same data ( Columns A to J ) but having different sources they are pulling from ( which is why they are in two separate sheets). Headers are in Row 1 and number of rows are not fixed.

I have a third tab "Master" in which I want the data from both these tabs to show up appended to each other. Row 1 will have headers, which are the same for all 3 sheets.

I wrote a Macro but it is just copying the header instead of the data.

Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Name = "Employee Access Arranged" Or Sht.Name = "IERWAA Lookup
    Arranged" Then
    Sht.Select

    LastRow = Range("A6553").End(xlUp).Row
    Range("A2", Cells(LastRow, "J")).Copy
    Sheets("Master").Select
    Range("A6553").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste

Else
End If
Next Sh

Could someone please assist as to how I can make it work to copy the data from both the sheets instead of the header. Also, since the number of rows changes, i want it to be dynamic to pick up the last filled row automatically.

Please Note : This is not a duplicate of another question. I do not want just matching values from both sheets, but all the values from both sheets. Furthermore, the problem is unique as the last column "J" might not have values in most cases, but the whole column would still need to be copied

Thank you in advance.

Answer 1

dirty runthrough off the top of my head:

dim i as long, lrs as long, lrd as long
for i = 1 to sheets.count
    if not sheets.name="Master" then 
        with sheets(i)
            lrs = .cells(.rows.count,1).end(xlup).row
            .range(.cells(2,"A"),.cells(lrs,"J")).copy
        end with
        with sheets("Master")
            lrd = .cells(.rows.count,1).end(xlup).row
            .cells(lrd+1,1).paste
        end with
    end if
next i

---

Edit1:

Cleaned up the code to work for the two specified sheets:

Dim i As Worksheet, arr As Variant, lrs As Long, lrd As Long
arr = Array("Employee Access Arranged", "IERWAA Lookup Arranged")
For Each i In Sheets(arr)
    With i
        lrs = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(2, "A"), .Cells(lrs, "J")).Copy
    End With
    With Sheets("Master")
        lrd = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(lrd + 1, "A"), .Cells(lrd + 1 + lrs, "J")).PasteSpecial xlValues
    End With
Next i