excel - como copiar e substituir (se existir) todas as folhas de uma pasta de trabalho para outra

Question

Eu uso o exemplo de "excel - como copiar todas as planilhas de uma pasta de trabalho para outra" para copiar todas as planilhas de uma pasta de trabalho para outra. A macro funciona. No entanto, se as planilhas já existissem na pasta de trabalho de destino. Eu quero substituí-lo. No momento, ele copia a planilha para o destino com o sufixo "(1)". Como posso verificar - se a planilha existir no destino, exclua-a e copie-a da fonte.

O código VBA:

Sub CopyWS()
    Dim b1 As Workbook, b2 As Workbook
    Dim sh As Worksheet
    InputPath = Range("B1").Value
    InputFileName = Range("B2").Value
    OutputPath = Range("B3").Value
    OutputFileName = Range("B4").Value
    Workbooks.Open Filename:=OutputPath & OutputFileName
    Set b1 = ActiveWorkbook
    Workbooks.Open Filename:=InputPath & InputFileName
    Set b2 = ActiveWorkbook
    For Each sh In b2.Sheets
        sh.Copy after:=b1.Sheets(b1.Sheets.Count)
    Next sh
End Sub