fso.movefileで既にファイルが存在する場合

Question

下記のようにfso.movefile sFile, dFile 'Hereの通り、fsoオブジェクトを利用してファイルを移動しているのですが、既に同一名称のファイルが存在する場合エラー扱いになります。これを上書きしたいのですが、良い方法はあるでしょうか？
ErrorをスキップするためにOn Error Resume Nextなどの方法があることはわかったのですが、同一名称ファイルがあったとしても、元の場所からは少なくとも移動したいため、解決策を模索しております。
ご助言をいただけますと幸いです。
宜しくお願い申し上げます。

Sub movefile()
    If Cells(4, 7) = "" Or Cells(4, 17) = "" Then
      MsgBox "Step3とExtra2が完了しないと実行できないよ！処理を終了します"
      Exit Sub
    End If
    
     Dim startTime As Double
     Dim endTime As Double
     Dim processTime As Double

    Dim fso As Object
    
    Dim sFile As String
    Dim dFile As String
    Dim i As Long
    Dim path As Long
    
     startTime = Timer
    
    i = 4
    dFile = ThisWorkbook.path & "\" & "trush" & "\" & Cells(5, 4)
    Do While Cells(i, 6) <> ""
     If Cells(i, 17) = "〇" Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        If Cells(i, 7) <> ">" And Not Cells(i, 7) Like "*.pdf*" Then
          sFile = ThisWorkbook.path & "\" & Cells(5, 4) & "\" & Cells(i, 6) & "\" & Cells(i, 7) & "*報告書*xls*"
        ElseIf Cells(i, 7) = ">" Then
          sFile = ThisWorkbook.path & "\" & Cells(5, 4) & "\" & Cells(i, 6) & "\共益" & "\" & Cells(i, 8) & "*報告書*xls*"
        End If
        fso.movefile sFile, dFile 'Here
        Set fso = Nothing
        i = i + 1
     Else
      i = i + 1
     End If
    Loop
    
    endTime = Timer
    processTime = Round(endTime - startTime, 2)
    
    MsgBox "今回の処理時間は:" & processTime & "秒でした" & vbCrLf & "お疲れ様でした（・ε・）ノシ"
End Sub

Answer 1

都度、新しいディレクトリを作成してそこに移動することで解決いたしました。