Выбор полного прерывающегося диапазона ячеек

[SilverSmallFish]

Здравствуйте!
Существует такая загвоздка:
Необходимо в Excel 2003 методами VBA выбрать полный прерывающийся диапазон данных, пробовала вот так -
Sheets("Маркировочная Ведомость").Activate
Sheets("Маркировочная Ведомость").Range("U4", ActiveSheet.Range("B65536").End(xlU p)).Select
- всё работало пока не вылезло НО
столбцы у этого диапазнона могут быть разной длины - вот здесь и косячок вышел.

Заранее извеняюсь, если что то не так объяснила

[Dophin]

Sheets("Маркировочная Ведомость").Range("U4:B"&usedrange. rows.count).select

так попробуйте, если я вопрос правильно понял.

[SilverSmallFish]

Спасибо вам за ответ, вопрос вы поняли правильно.
Вот только, выделяется диапазон до последней форматируемой строки, я скинула файл, если вам не трудно, почему он выделяет не до 57 строки, а до 1075, есть подозрения, но может они ложны.

[SAS888]

почему он выделяет не до 57 строки, а до 1075

Потому, что в диапазон UsedRange входят строки, как содержащие значения, так и пустые ячейки с форматированием, заливкой, границами и т.п. Поэтому, последнюю строку заполненного диапазона Вам потребуется вычислять. Например, так (для активного листа):

For i = ActiveSheet.UsedRange.Rows.Count To 4 Step -1
    If Rows(i).Text = "" Then Else Exit For
Next
Range([B4], Cells(i, "U")).Select

[SilverSmallFish]

Спасибо вам огромное за помощь!

Может быть поможите решить ещё одну мою задачку. Всё в том же файле у меня есть три столбца E,M,R - в них содержиться формула с условиями, и эти формулы мне нужно автоматически продлить, всё до той же последней заполненой строки, пробовала так
Range("R4").Select
Selection.AutoFill Destination:=Range("R4:R65536"), Type:=xlFillDefault
и так для каждого столбца, вроде бы ничего, но после этого заполнения у меня возникают проблемы со сводными таблицами, а сводные это свято.
Если вопрос понятен, то жду какого-нибудь намёка на помощь.

Заранее спасибо!

[SAS888]

Посмотрите вложение. Запустите макрос "Main". В коде макроса подробные комментарии.

[SilverSmallFish]

Я вам очень благодарна, спасибо! всё замечательно работает.