Consolidate Multiple workbook to one worksheet

[p9j123]

I need help on building a macro that will consolidate multiple workbook to one worksheet.

There are 2 sheets on File "Masterfile.xlxs."

DB - Database of the consolidated file.
Directory - List of the Workbook that needs to be consolidated, path and extension included.

There are multiple sheets on the file that needs to be consolidated, but only the QUEUE2 Sheets is needed from L5 to the last row with content.

 

[p9j123]

For those looking for the same macro....

Sub Consolidate()
'Consloidate Tracker to get the status
Dim AWB As Workbook
  


Set AWB = Application.ActiveWorkbook
 
pathcount = Worksheets("List").Cells(Rows.Count, 15).End(xlUp).Offset(1, 0).Row - 1


For x = 7 To pathcount 'my directory list starts on O7
 
  
  wname = AWB.Worksheets("Directory").Range("O" & x).Value


Application.DisplayAlerts = False
  Set swb = Workbooks.Open(wname, ReadOnly:=True, Notify:=False, UpdateLinks:=False)
  araw = swb.Worksheets("Queue2").Cells(Rows.Count, 12).End(xlUp).Offset(1, 0).Row ' identify the last row on source file in L column
  traw = AWB.Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'to identify the last row on the mainfile


'  [Code to copy the content of Individual Tracker to your Main File]
  swb.Worksheets("Queue2").Range("L5:P" & araw).Copy               'source
  AWB.Worksheets("DB").Range("A" & traw).PasteSpecial xlPasteValues          'Main File


 swb.Close
 Application.DisplayAlerts = True


Next x


Sheets("DB").Select


End Sub