<Excel VBA> フォルダからフォルダへファイルの移動をしたい

Excelマクロ初心者です。ファイルを移動させるマクロを組んでいるのですが、思うようにできません。お力を貸してください。

○現状
Cドライブに[階層1フォルダ]があり、その中に[階層2フォルダ]があります。[階層2フォルダ]には[2-1フォルダ]から[2-iフォルダ]まであり、それぞれにcsvファイルが1個ずつ格納されています。また[階層2フォルダ]には[移動先フォルダ]があります。
(iは今回は11ですが、今後運用していくにあたり変動するため文字に置き換えて記載しています。)

そこで、csvファイルを[移動先フォルダ]に移動させるマクロを検索して出てきたものを切り貼りしながら作成してみました。

コードの流れとしては以下のように動いてほしいと考えています。
[階層2フォルダ]中のすべてのファイルパスを取得→A1セルからAiセルに貼り付け→A1セルに貼られたファイルパスから[移動先フォルダ]にファイルを移動

以下コードです。Excel2010を使用しています。
実行すると最後の方にあるFor～Nextの処理で、すでに同じファイルがあるというダイアログボックスが出てエラーになります。
改善方法を教えてください。よろしくお願いします。

Sub ファイルパス取得()
    
    NOUN = 0
    Call TEST("C:\階層1フォルダ\階層2フォルダ")
    
End Sub

Sub TEST(FolderPath As Variant)

    
    Dim FSO As Object, Folder As Variant, File As Variant
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    For Each Folder In FSO.GetFolder(FolderPath).SubFolders
        Call TEST(Folder)
    Next
    
    For Each File In FSO.GetFolder(FolderPath).Files
        NOUN = NOUN + 1
        ActiveSheet.Cells(NOUN, 1) = File
    Next
    
End Sub

Sub ファイルの移動()
    Dim FSO As Object
    Dim S As String
    Dim D As String
    Dim i As Long
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
        
    D = "C:\階層1フォルダ\階層2フォルダ\移動先フォルダ"
     
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        S = Cells(1, i).Value
        FSO.movefile S, D
    Next
    
End Sub