Чтение в массив полей таблицы Excel

Sub m_1()
Dim LastRow As Long
Dim myArray As Variant
'Сохранение книги, чтобы можно было определить последнюю
'заполненную строку.
If ActiveWorkbook.Saved = False Then
    ActiveWorkbook.Save
End If
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
myArray = Range("B7:Q" & LastRow)
End Sub

Debug.Print UBound(myArray, 1)

Set myItem = Application.CreateItem(1) 
    myItem.MeetingStatus = 1
    myItem.Subject = myArray(i, 4) & " (" & myArray(i, 2) & ")"
    myItem.Start = #2/15/2011 6:30:00 PM#
    myItem.Duration = 90
    MyAttendee = myArray(i, 7)
    If MyAttendee <> "" Then
        Set myRequiredAttendee = myItem.Recipients.Add(MyAttendee)
        myRequiredAttendee.Type = 1
    End If
    myItem.Send

Dim objOutlook As New Outlook.Application
 
Set myItem = objOutlook.CreateItem(1)

Sub m_1()
Dim Outlook As Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
End Sub

Sub a_1()   'Для одномерного массива
    'Описание массива из 10 элементов
    Dim x(1 To 10) As Long
    'Вычисление значений массива
    For j = 1 To 10
        x(j) = j * j
    Next j
    'Перенос содержимого массива во вторую строку листа
    Range(Cells(2, LBound(x)), Cells(2, UBound(x))).FormulaArray = x
End Sub
 
Sub A_2()      'Для двумерного массива в виде столбца
  'Описание массива расположенного в одном столбце
  Dim x(1 To 10, 1 To 1) As Long
  'Вычисление значений массива
  For j = 1 To 10
     x(j, 1) = j * j
  Next j
  'Перенос содержимого массива в столбец листа
  Range(Cells(LBound(x), 2), Cells(UBound(x), 2)).FormulaArray = x
End Sub