i would like to add a name a begin row and endrow to an array

et would be the name, and the 1st row after the name changed would begin row
the last row b4 name change would be end.

how can i add them to the array?

Dim et As String
et = ActiveCell.Value

i = 2
Do While Not IsEmpty(ActiveCell)
begRow= activecell.row

Do While et = ActiveCell.Value
i = i + 1

et = ActiveCell.Value
endRow= activecell.row-1
myArray(useUpperbound+1?, useUpperbound+1?, useUpperbound+1?) = _ et,begrow,endrow?