Доброго времени суток, помогите с решением маленького вопроса, нужно протянуть данные в столбце (AG)  по длине соседнего столбца (AE)
Использую код:
Range("AG2").Select
Selection.Copy
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 2).Range("A1").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste

Но есть одна проблема в таблице есть заголовок и он копирует столбец до самой шапки (до ячейки AG1 а должен до AG2) можно ли как нибудь из xlUp вычесть единицу чтобы он скопировал, все кроме заголовка таблицы.
То есть при запуске макроса он меняет в заголовке с "УТГ" на "Оса", а должно остаться "УТГ".