Here is my code so far but I am getting an error: "Expected End of Statement" on the line with the .AutoFilter...
Sub ArchiveData()
'Instansiate Objects & Setup Vars
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim filteredData As Range
Dim lastRow As Long
'Set Objects
Set copySheet = Me.Worksheets("Prod. Data")
Set pasteSheet = Me.Worksheets("Archive")
Set filteredData = copySheet.ListObjects("Table3").Range.AutoFilter Field:=16, Criteria1:= ">=2/1/2020", Operator:=xlAnd, Criteria2:="<=2/15/2020"
'Copy the data
copySheet.Range("Table3").Copy Destination:=pasteSheet.Range("Table4")
End Sub