макрос замена значений последняя не занятая строка

[marc-nikita]

привет всем! имеется вот такая структура

Sub Макрос2()

Dim a, b As String

a = ActiveCell.Row + 1

b = InputBox("b")

Selection.Replace What:=a, Replacement:=b, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

макрос работает так: я выделяю определенное количество ячеек в строке, запускаю макрос, макрос спрашивает у меня число последней не занятой строки под выделенными ячейками, я ввожу этот номер строки, и у меня в выделенных ячейках меняются определенные значения.

так вот, ребят, я не знаю как сделать чтобы переменная b не задавалась вручную, а изменалась автоматически в зависимости от последней не занятой строки под мною выделенными ячейками.... Как сделать, помогите пожалуйста??...

[SAS888]

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

With Selection.CurrentRegion
    i = .Row + .Rows.Count
End With
MsgBox i

После выполнения данного кода, переменная i (типа Long) будет содержать номер требуемой строки.

[marc-nikita]

спасибо! единственный кто согласился помочь!