Переход на последнюю строку VB

[S_e_m]

Доброго времени суток! У меня задачка такого рода:
Есть таблица (количество строк меняется) в которую мне нужно вставить формулу и протянуть до последней строки. Есть макрос который это делает, но он до конца не работает. Я делаю так: пишу формулу, выделяю ячейку и нажимаю на её правый нижний уголок два раза. Формула потянулась вниз как надо, но после того как таблица поменяла количество строк, тот столбец с формулой всё-равно считает по прежнему приципу. Подскажите:
1. Как в VB протянуть формулу до последней соседней ячейке?
2. Как в VB перейти на последнюю ячейку в столбце и потом ещё на одну ниже?

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

[Watcher_1]

1)
Автозаполнение формулой до конца списка по столбцу С начиная с С1
Range("C1").AutoFill Destination:=Range("C1:C" & Range("A1").End(xlDown).Row)
2)
Range("A" & Range("A1").End(xlDown).Row + 1).Select

[S_e_m]

Спасибо большое. Очень помог

[kuklp]

Или:

[A1].End(xlDown)(2).Select

[S_e_m]

kuklp, спасибо за упрощенный вариант.
И сразу вопросик вдогонку - также как и в первом посте, таблица меняет количество строк, а мне надо, что бы вконце была строка суммирования (диапазон, например, C190:L190). Подскажите как можно выйти из такой ситуации.

[kuklp]

Сообщение от S_e_m

kuklp, спасибо за упрощенный вариант.
И сразу вопросик вдогонку - также как и в первом посте, таблица меняет количество строк, а мне надо, что бы вконце была строка суммирования (диапазон, например, C190:L190). Подскажите как можно выйти из такой ситуации.

S_e_m, выложи ВЫ пример сразу, что есть - как надо, давно бы получили готовое решение. А в загадки играть, мне неинтересно. Я ответил на вопрос:"2. Как в VB перейти на последнюю ячейку в столбце и потом ещё на одну ниже?". Watcher_1 ответил на оба.

[S_e_m]

Исходник на работе. Завтра после работы выложу.
А злиться не надо . Я чайник в этих делах, потому и вопросы такие...

[Watcher_1]

Сообщение от S_e_m

Исходник на работе. Завтра после работы выложу.
А злиться не надо . Я чайник в этих делах, потому и вопросы такие...

Если чайник и хочется все БЕСПЛАТНО то придется довольствоваться тем на что у людей есть время.

Обычно за хороший код надо платить.... %)))

kuklp, спасибо за упрощенный вариант.
И сразу вопросик вдогонку - также как и в первом посте, таблица меняет количество строк, а мне надо, что бы вконце была строка суммирования (диапазон, например, C190:L190). Подскажите как можно выйти из такой ситуации.

Решение

    Range("A" & Range("A1").End(xlDown).Row + 1).Select
    'ENG Office =SUM  в русском не помню
    Selection.FormulaLocal = "=SUM(A1:A" & Selection.Row - 1 & ")"

[Hugo121]

Кстати, предложенные варианты рассчитаны на список без пропусков.
Погоняйте по Ф8 такой код на таких данных:

Sub tt()
With Sheets(1)
.Cells(.Rows.Count, "A").End(xlUp)(2).Select
.[A1].End(xlDown)(2).Select
End With
End Sub

khgk
hkhk

hk
hl
hl

hlhl
hlhl
hlhl

Для разнообразия привёл два разных варианта написания, хотя это не все...

[Watcher_1]

Сообщение от Hugo121

Кстати, предложенные варианты рассчитаны на список без пропусков.
Погоняйте по Ф8 такой код на таких данных:

Sub tt()
With Sheets(1)
.Cells(.Rows.Count, "A").End(xlUp)(2).Select
.[A1].End(xlDown)(2).Select
End With
End Sub

khgk
hkhk

hk
hl
hl

hlhl
hlhl
hlhl

Для разнообразия привёл два разных варианта написания, хотя это не все...

В задании ничего не было сказано про то что списки могут быть "дырявыми"...