unire file .csv usando excel

excel 2021

win 11

sto cercando di far funzionare questo codice

Sub UnisciCSVdaCartella()

Dim ws As Worksheet

Dim folderPath As String

Dim CartellaFIle As String

Dim fileName As String

Dim lastRow As Long

Dim isFirstFile As Boolean

Dim csvData As Workbook

Dim NomeFile As String

' Imposta la cartella contenente i CSV

folderPath = "miopercorso\FileDaUnire"

' Imposta la cartella dove salvare il file unito CSV

CartellaFile= "miopercorso\FileUnito"

If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

Set ws = ThisWorkbook.Sheets(1)

ws.Cells.ClearContents

fileName = Dir(folderPath & "\*.csv")

isFirstFile = True

Do While fileName <> ""

    Set csvData = Workbooks.Open(folderPath & fileName)

    With csvData.Sheets(1)

        If isFirstFile Then

            .UsedRange.Copy ws.Cells(1, 1)

            isFirstFile = False

        Else

            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

            .UsedRange.Offset(1, 0).Resize(.UsedRange.Rows.Count - 1).Copy ws.Cells(lastRow, 1)

        End If

    End With

    csvData.Close False

    fileName = Dir()

Loop

' Definisci il nome del file

NomeFile = "nomefile.csv"

' Esporta il foglio attivo in formato CSV

ActiveSheet.SaveAs fileName:=CartellaFIle & NomeFile, FileFormat:=xlCSV, CreateBackup:=False

' Messaggio di conferma

MsgBox "files uniti correttamente - file esportato in formato CSV nella seguente cartella: " & CartellaFile& NomeFile, vbInformation

End Sub

ma non funziona.

io ho dei files .csv con campi uguali e devo unirli in un unico file.

unirli riesce poi ho provato ad aggiugere il saveas per salvarli nella cartella \miopercorso\fileunito ma non mi riesce farlo fare.

dove sbaglio?

grazie