Определение конца файла с форматированием пустых ячеек

[3BEPOBOY]

Добрый день! Уважаемые знатоки, у меня нубовский вопрос к вам.

Есть программа грандсмета, которая формирует файлы отчета в экселе. Меня попросили написать макрос, который будет переделывать(шапочки, нужные фамилии, подписи и т.д.) этот файл. В том числе я вставляю некоторую запись в последнюю строку. Вот тут то и споткнулся. Раньше определял последнюю строку следующим образом и радовался:

UsedRange.Rows.Count

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

Я нашел временный выход, делаю что-то вроде

Do While usl
      for i=1 to 100
           if Cells.Value(j,i)<> "" then exit For
      Next
      if i=100 then Usl = false
      j=j+1  
Loop

Но это совсем не то как хотелось бы решать вопрос.
Прикладываю демонстративный файл с маленьким макросом, с таким же косячком. Непосредственно того что экспортирует грандсмета под рукой нет.
заранее спасибо за советы!

P.S. Тему нехорошо назвал. Уважаемые модераторы, переименуйте пож-ста в "Определение конца файла с отформатированными пустыми ячейками в конце"

[nilem]

Обычный способ не подходит?

Sub числострок()
    Dim a As Long
    a = UsedRange.Rows.Count
    MsgBox a
    a = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox a
End Sub

[3BEPOBOY]

Класс! спасибо. Я просто недавно начал VBA баловаться и почти ничего не знаю.
"обычный способ" вижу впервые

[kuklp]

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

Sub числострок()
    Dim a As Long, aa&
    On Error Resume Next
    a = UsedRange.Rows.Count
    MsgBox a
    aa = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox aa
 Stop
    Rows(aa + 1 & ":" & a + 1).Delete
    a = UsedRange.Columns.Count
    MsgBox a
    aa = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox aa
    Stop
    Range(Cells(1, aa + 1), Cells(1, a + 1)).EntireColumn.Delete
End Sub

[3BEPOBOY]

kuklp
спасибо, учту)
Кстати конструкцию STOP вообще первый раз вижу :D Разберемся!

[kuklp]

Она применяется для отладочных целей. В данном случае - чтобы Вы не удалили че-нить нужное, ориентируясь по МСГбоксам.