Може през clipboard-а да пробваш дали е по-бързо. Виж това:

Option Explicit



Private Function GetColumnsData(oSheet As Object, sColumns As String) As Collection

    Dim vElem       As Variant

    

    Set GetColumnsData = New Collection

    For Each vElem In Split(sColumns, " ")

        Clipboard.Clear

        oSheet.Range(vElem & ":" & vElem).Copy

        GetColumnsData.Add Split(Clipboard.GetText(), vbCrLf), vElem

    Next

End Function





Private Sub Form_Load()

    Dim oData       As Collection

    Dim vElem       As Variant

    

    With CreateObject("Excel.Application")

        .Visible = True

        .RecentFiles.Item(1).Open

        Set oData = GetColumnsData(.Sheets("Sheet1"), "G H A B C D E")

    End With

    Debug.Print "size = "; UBound(oData("G"))

    For Each vElem In oData("G")

        Debug.Print vElem

    Next

End Sub