Gostaria de saber por favor como eu faço para importar uma planilha que está em uma pasta na redes do meu computador para uma outra planilha no excel usando o vba?

Eu estou usando este código, mas não dá certo:

Sub Import_Inv()

Dim Dir, Arq, dia, mes, ano, planilha

dia = Format((Date), "dd") 'puxa o dia
mes = Format((Date), "mm") 'puxa o mes

Arq = "S:Gerência PPCPPPCPPublico2 - Folhas3 - Controle3 - InventárioMacro Inventário" _
& " " & "-" & " " & "Folhas" & " " & dia & "-" & " " & mes & ".xls"

Sheets.Add
planilha = ThisWorkbook.ActiveSheet.Name

With ActiveSheet.QueryTables.Add(Connection:="EXCEL;" & Arq, Destination:=Sheets(planilha).Range("A1"))
.Name = Arq
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.Refresh BackgroundQuery:=False

End With

End Sub

O nome da pasta de onde quero importar a planilha é: MARCO (mês atual) 2016 (ano atual)

a planilha que quero importar, que esta dentro desta pasta muda o nome todo dia (conforme a data), o nome da planilha é:

Macro Inventário - Folhas 02- 03

Como posso fazer com que a macro importe a planilha do dia, que fica na pasta do mês e ano atual?

Me ajudem por favor, Obrigada