как изменить № колонки у адреса Area / Range

[Bape}l{ka]

народ, подскажите пожалуйста!

дано: выделенный несмежный диапазон на одной(!) строке

надо: чтобы этот диапазон расширился на определенное кол-во строк вниз, т.е. выделением мы задаем колонки адреса, а строку надо туда вставить (не знаю, как это сделать Т_Т)

идея: номер последней строки из адреса каждого Area я вроде вычленила, только не получается его изменить

подскажите плз, как к этому адресу подступиться, или может кто другой способ сможет предложить?

Public Sub ChangeAreaLastR()
'выдает № последней строки каждого выделенного диапазона (в т.ч. несмежного)
Dim LastRow As Long
Dim ChangeLastRow As Integer
ChangeLastRow = 5
Dim iArea As Range
    For Each iArea In Selection.Areas
        LastRow = iArea.Row + iArea.Rows.Count - 1
        MsgBox LastRow
        LastRow = ChangeLastRow  'ВОТ ЭТА ФИГНЯ НЕ РАБОТАЕТ т_т
        MsgBox "change " & ChangeLastRow & " " & iArea.Address
        arCounter = arCounter + 1
    Next iArea
End Sub

[Казанский]

Попробуйте

Public Sub ChangeAreaLastR()
'выдает № последней строки каждого выделенного диапазона (в т.ч. несмежного)
Dim ChangeLastRow As Integer
ChangeLastRow = 5
Dim iArea As Range
    For Each iArea In Selection.Areas
        Union(Selection, iArea.Resize(ChangeLastRow, iArea.Columns.Count)).Select
    Next iArea
End Sub

[Bape}l{ka]

Казанский
спасибо большое, все работает, и как раз то что нужно! ))))) ураа!!
вы гений!