Выделение динамических таблиц на листе.

[SaLoKiN]

Имеется лист, на нем две таблицы. С первой(верхней) таблицей проблем нет т.к. шапка имеет постоянный адрес, а последнюю запись найти не проблема. Но вот с таблицей под ней(нижней) уже становится посложнее...
В верхней пустые строчки хочется удалять, тогда нижняя поползет.

Как поймать начало нижней таблицы?
Sub RunMe()

Макрос выполняется на листе "для l5", а таблица которая нужна находится на листе "НТК1".

[SAS888]

Можно, например, так:

Dim i As Integer
For i = 1 To Sheets("НТК 1 ").UsedRange.Rows.Count
    If Sheets("НТК 1 ").Cells(i, 1).Borders(xlEdgeBottom).LineStyle = xlNone Then Exit For
Next
MsgBox i + 2 'Начальная строка 2-й таблицы

P.S. У Вас в имени листа "НТК 1 " в конце пробел. Так надо?

[SaLoKiN]

Спасибо! Все крутяк!!!

P.S. У Вас в имени листа "НТК 1 " в конце пробел. Так надо?

Я в курсе) та лень менять уже))

А чет я не могу сказать спасибо.... О_о