Ошибка при заполнении - добавляет каждый раз в новый столбец

Sub DBF()
 
    Dim myPath As String, myName As String, Wb As Workbook, clTarget As Range, nRow As Long, i As Integer
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "00"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & Application.PathSeparator
    End With
    
    myName = Dir(myPath & "*.dbf")
    With ThisWorkbook.Sheets(1)
        Do While myName <> ""
        ' Çàïîìèíàåì íà÷àëî äèàïàçîíà, êîòîðûé íóæíî áóäåò çàïîëíèòü
            nRow = .UsedRange.Rows.Count + .UsedRange.Row
            Set Wb = Workbooks.Open(Filename:=myPath & myName)
            ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, "A")
            ' Çàïîëíÿåì âñòàâëåííûå äàííûå èìåíåì èñòî÷íèêà
            .Range(.Cells(nRow, .UsedRange.Columns.Count + 1), .Cells(.UsedRange.Rows.Count + .UsedRange.Row, .UsedRange.Columns.Count + 1)).Value = myName
 
            Wb.Close SaveChanges:=False
 
            myName = Dir
        Loop
    End With
 
End Sub