Visual Basic Importação CSV com erro, último registro não carrega

[aprendiz_vba]

Boa tarde.

Conseguiriam me auxiliar mais uma vez, por gentileza.

Localizei este código para importação CSV, porém quando fui conferir os dados importados, o último registro de cada arquivo não carrega, tentei identificar o erro no código abaixo, mas meu conhecimento não permitiu localizá-lo.

 Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    
    Set W = Sheets("Arq_Recarga_Certa")
    W.Select
    W.UsedRange.EntireColumn.Delete

    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Selecione o diretório que conste os arquivos de Recarga Certa"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp)
        xWb.Close False
        xFile = Dir
    Loop