Excel VBA Копирование и вставка различных книг

Question

Я хочу скопировать данные одного рабочего листа (Рабочая книга: сегментированная пробная бухгалтерская книга Главной книги. XLS - лист внутри этой книги с тем же именем) в другую рабочую книгу с 20 листами, один из которых с тем же именем. Вставка данных поверхсуществующие данные.

Код выглядит следующим образом:

Sub CopyWorkbook()

    Dim aw As Workbook
    Dim y As Workbook
    Dim sh As Worksheet

    Set aw = Application.ActiveWorkbook
    Set y = Application.Workbooks.Open("S:\Proefbalanse\PastelTB\Segmented General Ledger Trial Balance.XLS")

    For i = 20 To aw.Sheets.Count
            Set sh = Segmented General Ledger Trial ***its complaining about this sheet name***

        On Error Resume Next
        Set sh = y.Worksheets(aw.Worksheets(i).Name)
        On Error GoTo 0
        If TypeName(sh) <> "Segmented General Ledger Trial" Then
            sh.Range("A:F").Copy aw.Worksheets(i).Range("A1")
        End If
    Next i
   Application.CutCopyMode = False
   y.Close
End Sub

Когда я изменяю имена листов в обеих книгах, он проходит без вставки данных в правильный лист?

Пожалуйста, помогите.

Йохан