Combine Data from Multiple Worksheets and Multiple Files into one master table in workbook

I created a template for work for everyone to submit their budgets. The template has 20 tabs named Task 1 - Task 20. The input fields aren't locked, but all other fields are. I will be receiving about 200 files. I want all of the data to go into one tab on one Excel file in a table that collects all of the data. The data in the template is the same in each file, but it is not in table form, so the master table will be different. Is there a macro that can pull all the data or is there a way to reference each cell I need to create the table in VBA? I am happy to provide more information.

Thank you for your help!

Thank you for your response! I'm using the below macro. The only problem is it is not pulling in rows that might be hidden or filtered. Do you know how I can tell this macro to pull in all rows regardless of if it is hidden or filtered?

Option Explicit

Sub cons_data()

Dim Master As Workbook
Dim sourceBook As Workbook
Dim sourceData As Worksheet
Dim CurrentFileName As String
Dim myPath As String
Dim lastrow As Long
Dim lrow As Long
Dim i As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'The folder containing the files to be recap'd
myPath = "S:\FY2015\Macro_Test"

'Finds the name of the first file of type .xls in the current directory
CurrentFileName = Dir(myPath & "\*.xlsx")

'Create a workbook for the recap report
Set Master = ThisWorkbook

For i = 1 To Master.Worksheets.Count
With Master.Worksheets(i)
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
If lrow > 1 Then .Rows("2:" & lrow).ClearContents
End With
Next i

Do
Workbooks.Open (myPath & "\" & CurrentFileName)
Set sourceBook = Workbooks(CurrentFileName)
For i = 1 To sourceBook.Worksheets.Count
Set sourceData = sourceBook.Worksheets(i)

With sourceData
lastrow = Master.Worksheets(.Name).Range("A" & Rows.Count).End(xlUp).Row
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
.Rows("2:" & lrow).Copy Master.Worksheets(.Name).Rows(lastrow + 1)
End With
Next i

sourceBook.Close

'Calling DIR w/o argument finds the next .xlsx file within the current directory.
CurrentFileName = Dir()
Loop While CurrentFileName <> ""

MsgBox "Done"

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub