запуск макроса с нужного места

[drollig]

Доброго времени!
Надеюсь, вы поможете решить мне еще одну хитрую задачку)
Есть макрос - он делает расчет по ВПР и сохраняет значения. Задача научить его делать эту процедуру каждый раз с последней незаполненной строки. Помогите советом - как начать запись макроса?

[motorway]

Данный код ищет последнюю заполненную строку.

LastUsedRow = ActiveSheet.UsedRange.Rows.Count - ActiveSheet.UsedRange.Row + 1

Соответственно, последняя незаполненная - это на конце + 2

[drollig]

я правильно понимаю, что этот код надо вписать в макрос после sub, перед всеми остальными строками?
волшебство просто)

[motorway]

Да, а потом использовать в нужном месте, где нужно передавать параметр

[drollig]

motorway, огромное спасибо!)

[drollig]

показалось, что будет просто.... не справилась((
помоги, пожалуйста!
макрос выглядит вот так:
получается, что стартует и заканчивает на тех строках, где я его писала. А мне надо, чтобы он работал на тех, которые будут пустыми и пересчитывал внесенные слева данные. Т.е.каждый раз считал с того места, где закончились расчеты в предыдущий раз.
как можно вставить сюда код?

Sub счет()
'
' счет Макрос
'

'
Selection.End(xlDown).Select
Range("L5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],UPC!R3C3:R172C4,2,0)"
Range("M5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],прайс!R3C3:R172C4,2,0)"
Range("N5").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/30"
Range("O5").Select
ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-2]"
Range("P5").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*RC[-2]"
Range("Q5").Select
ActiveCell.FormulaR1C1 = "=RC[2]*RC[-4]"
Range("R5").Select
ActiveCell.FormulaR1C1 = "=RC[1]*RC[-4]"
Range("L5:R5").Select
Selection.AutoFill Destination:=Range("L5:R7522")
Range("L5:R7522").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub