excel - VBA で検索しますが、コメントを含むすべてのセルの内容をコピーします

Question

こんにちは、一連のワークブックからマスター ファイルにデータをコピーしようとしています。マスターファイルには、スプレッドシート名と、文字列としてループするシート名が含まれており、そのプロセスは正常に機能しています。しかし、列 A と行 1 の名前を各ワークシートのデータと一致させ、コメントを含めてセルをコピーする必要があります。vlookup が機能していましたが、コメントがコピーされません。そのため、セルの列番号と行番号を見つけるためにいくつかの一致ステートメントを実行しようとしましたが、機能しないようです。何か案は？？

Sub GroupTwo()
Dim path As String
Dim i As Integer
Dim Dsheet As String
Dim wb As Workbook
Dim upi
Dim cmt As Comment
Dim iRow As Integer
Dim col As Integer
Dim lookrange As Range
Dim G2 As Worksheet
Dim colRange As Variant
Dim rowRange As Range
Dim rowCell As Variant
Dim colCell As Variant

Set lookrange = ThisWorkbook.Sheets("Lookups").Range(ThisWorkbook.Sheets("Lookups").Cells(3, 1), ThisWorkbook.Sheets("Lookups").Cells(11, 2))
Set G2 = ThisWorkbook.Sheets("Group_two")

Application.DisplayAlerts = False
upi = 2
coln = 2
For i = 60 To 61
    path = ThisWorkbook.Sheets("Sheet7").Cells(1, i).Value
    Dsheet = ThisWorkbook.Sheets("Sheet7").Cells(2, i).Value
    Set wb = Workbooks.Open(path)
    Set colRange = wb.Sheets(Dsheet).Range(wb.Sheets(Dsheet).Cells(4, 2), wb.Sheets(Dsheet).Cells(4, 56))
    Set rowRange = wb.Sheets(Dsheet).Range(wb.Sheets(Dsheet).Cells(7, 1), wb.Sheets(Dsheet).Cells(27, 1))
    For c = 2 To 57
        For r = 8 To 73
            Set rowCell = Application.Match(G2.Cells(r, 1), rowRange, 0)
            Set colCell = Application.Match(G2.Cells(4, c), colRange, 0)
            wb.Sheets(Dsheet).Range(rowCell, colCell).Copy
            G2.Cells(r, c).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


        Next r
    Next c
    do some stuff with the comment
    wb.Close SaveChanges:=False
Next i