excel - bir çalışma kitabından diğerine tüm sayfaların kopyalanması ve değiştirilmesi (varsa)

Tüm sayfaları bir çalışma kitabından diğerine kopyalamak için "excel - tüm sayfaların bir çalışma kitabından diğerine nasıl kopyalanacağı" örneğini kullanıyorum. Makro çalışıyor. Ancak, sayfalar hedef çalışma kitabında zaten mevcutsa. Değiştirmek istiyorum. Şu anda, sayfayı "(1)" soneki ile hedefe kopyalar. Nasıl kontrol edebilirim - sayfa hedefte ise, silin ve kaynaktan kopyalayın.

VBA kodu:

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