Option Explicit

Sub Mover_E_Substituir()
Dim fso         As Object
Dim oArquivo    As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'se o primeiro arquivo existe
    If fso.FileExists("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsm") Then
        
        'pega o arquivo no objeto oArquivo1
        Set oArquivo = fso.GetFile("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsm")
        
        'copia e cola no destino, substituindo caso encontre outro com mesmo nome
        oArquivo.Copy "C:SISTEMA PEDIDO V1.0TERMINAL1BD_3.xlsm", True
    End If
    
    'limpeza de memória
    Set oArquivo = Nothing
    Set fso = Nothing
    
End Sub

Option Explicit

Sub Mover_E_Substituir()
Dim fso         As Object
Dim oArquivo    As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'se o primeiro arquivo existe
    If fso.FileExists("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsm") Then
        
        'pega o arquivo no objeto oArquivo1
        Set oArquivo = fso.GetFile("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsm")
        
        'copia e cola no destino, substituindo caso encontre outro com mesmo nome
        oArquivo.Copy "C:SISTEMA PEDIDO V1.0TERMINAL1BD_3.xlsm", True
    End If
    
    'limpeza de memória
    Set oArquivo = Nothing
    Set fso = Nothing
    
End Sub

fernando Obrigado pela ajuda....