Combining multiple excel workbooks into the same master file

[12hcks]

Hi I am new to vba so apologies if the questions are too simple.. I am trying to combine around 15-25 excel files of the same formatting into the one master file (on the same sheet)... I found codes online but none of them worked. This one indicates Subscript out of range.

Any help will be greatly appreciated.

 

[12hcks]

Sub Woofy()
Dim Fso As Object, Fileobj As Object
Dim Ws1 As Worksheet, ws2 As Worksheet

Set Ws1 = ThisWorkbook.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(2)
Set Fso = CreateObject("scripting.filesystemobject")
For Each Fileobj In Fso.GetFolder("J:\confirmed").Files
With Workbooks.Open(Fileobj)
With .Sheets(1)
.Range("A3:AC" & .Range("A" & .Rows.Count).End(xlUp).Row).Copy
Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With
With .Sheets(2)
.Range("A3:AC" & .Range("A" & .Rows.Count).End(xlUp).Row).Copy
ws2.Range("A" & ws2.Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
.Close False
End With
Next Fileobj
End Sub