excel - VBA Excel 貼り付け値の混乱

Question

このコードを含む投稿から同様のコードを実装しようとしました。指定されたセルからのコピーはうまく機能しますが、セルの内容（数式など）ではなく、ソースからセルの値を貼り付ける必要があります。いくつかのことを試しましたが、すべてエラーが発生します TIA

Sub AlonsoApprovedList()

    Dim cell As Range
    Dim rngDest As Range
    Dim i As Long
    Dim arrColsToCopy

    arrColsToCopy = Array(1, 3, 4, 5)

    '----For every cell in row G on the ESI Project Data sheet----'
    Set rngDest = Worksheets("Alonso Approved List").Range("A3")

    Application.ScreenUpdating = False

    For Each cell In Worksheets("ESI Project Data").Range("G6:G5000").Cells

        If cell.Value = "Card" Then

            For i = LBound(arrColsToCopy) To UBound(arrColsToCopy)
                With cell.EntireRow
                    .Cells(arrColsToCopy(i)).Copy rngDest.Offset(0, i)
                End With
            Next i

            Set rngDest = rngDest.Offset(1, 0) 'next destination row

        End If

    Next cell

    Application.ScreenUpdating = True

End Sub

Answer 1

rngDest.Offset(0, i).Value = .Cells(arrColsToCopy(i)).Value