L oop через файлы VBA

Question

Я пытаюсь пропустить все файлы в папке oop, копируя их в рабочую книгу. Я запускаю макрос, копирование / вставка уже завершены, мне не хватает l * 1006. * так что я могу автоматизировать этот процесс, я уже работал в своем коде, но он ничего не делает.

    Option Explicit
Sub DailyTrans_MDM()
Dim vFile As Variant
Dim folderPath As String
Dim filePath As String
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom  As Workbook
Dim wsCopyFrom As Worksheet

folderPath = (filePath & "*.xl*")
vFile = Dir(folderPath & "*.xl*")
Do While vFile <> ""

Application.ScreenUpdating = False
Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = ActiveSheet
'------------------------------------------------------------------------------
Set wbCopyFrom = Workbooks.Open(vFile)
Set wsCopyFrom = wbCopyFrom.Worksheets("ReporteCifrasControl")

'--------------------------------------------------------------------------------------
wsCopyFrom.Range("A2:M" & wsCopyFrom.Range("A" & Rows.Count).End(xlUp).row).Copy
wsCopyTo.Range("A" & wsCopyTo.Range("A" & Rows.Count).End(xlUp).row + 1).PasteSpecial xlPasteValuesAndNumberFormats
wbCopyFrom.Close SaveChanges:=False


vFile = Dir
Loop
Application.ScreenUpdating = False
End Sub

Надеюсь, вы можете помочь мне, пожалуйста