Копировать формулу до последней строки

[amadeus017]

Доброго времени суток, уважаемые форумчане!

Есть файл, в котором есть макрос написанный мною макрорекордером, так как по другому не умею (я бухгалтер) и задача этого макроса заключается в том, чтобы прописывал имя склада (в моем случаи, это город где находится товар). Сколько будет строк в отчете, я не знаю, так как всегда по разному, по этому формула которую я хочу проставить, копирую до 150 000 строки. Макрос надывается "Склад" и привязан к кнопке "ЖМИ".
Можно как-то это упростить макрос, чтобы формулу копировал не 150 т. строк, а лишь на непустые строки в по графе "C"?
(Читал на форумах макросы по поиску последней строки, ни внедрить в свой макрос, не получилось)

[Казанский]

Если убрать из макроса лишнее, получится следующее

Sub Склад()

Application.ScreenUpdating = False

    Range("M3", Range("M3").End(xlDown)).ClearContents
    
    With Range("M5:M" & Cells(Rows.Count, "C").End(xlUp).Row) 'посл. строка определяется по ст. С
      .FormulaR1C1 = "=IF(RC[-10]="""","""",IF(RC[-9]="""",RC[-10],IF(RC[-9]=""шт"",R[-1]C,"""")))"
      .Value = .Value
    End With
    Range("A1").ClearContents

Application.ScreenUpdating = True

End Sub

Почитайте http://www.sql.ru/faq/faq_topic.aspx?fid=4344

[amadeus017]

Спасибо! Все работает как и хотелось!

Статью прочту, пригодится.