счет строк диапазона с форматом текстовый

[Sergey112233]

Уважаемые форумчане.
Помогите, пожалуйста с таким вопросом.
В столбце помещены цифры. Но формат установлен текстовый, т.к. перед цифрами с 1 до 9 нужно проставить ноль. 01213, 02213 и т.д.

Dim rng As Range
Dim Min As Variant, Max As Variant
Dim I As Integer, nColumn As Integer, nRow As Integer
 
  nRow = 1
  nColumn = 1
  With ActiveSheet.UsedRange
MyUsedRange = .Address
nUsedRows = .Rows.Count
nUsedCols = .Columns.Count
LastRow = .Rows(nUsedRows).Row
lastCol = .Columns(nUsedCols).Column
End With

  Set rng = Range(Cells(lastCol, lastCol), Cells(LastRow, lastCol))
      Max = rng.Cells(1)
      For I = 1 To rng.Count
          If rng.Cells(I) > Max Then
             Max = rng.Cells(I)
          End If
       Next I
    Max1 = Left(Max, Len(Max) - 3) 'Левая часть номера
    Max1 = Max1 + 1 'к номеру прибавить 1
    Max2 = Right(Max, 3) 'Код исполнителя - правая часть номера
    Max = Max1 & Max2 'новый номер СП
    Debug.Print Max
      Cells(LastRow + 1, nRow) = CStr(Max)

Когда в очередной пустой строке стоит формат общий или числовой nUsedCols = .Columns.Count считает правильно количество строк диапазона.
А если в очередной пустой строке стоит формат текстовый, а в ячейке ничего нет, то nUsedCols = .Columns.Count считает ее как ячейку диапазона.
Как сделать так, чтобы считались только те ячейки, которые заполнены. А формат столбца оставался текстовым?

[Hugo121]

nUsedRows = .Cells(Rows.Count, 1).End(xlUp).Row '.Rows.Count
Вернее даже так:
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
А nUsedRows выкинуть.

[Sergey112233]

Классно, работает!
Спасибо.
А в чем проблема была?

[Hugo121]

В форматах. UsedRange кончается там, где кончаются форматы, а не данные...
Вот вчера как раз для другого форума пример на эту тему делал: http://forum.ixbt.com/post.cgi?id=attach:23:32362:895:1

[Sergey112233]

А каким образом можно определить (посмотреть) окончание форматов?
Url форума положите, пожалуйста. Или др.

[Hugo121]

Ctrl+End поможет - вот как раз UsedRange и покажет.
А url давать некорректно (хотя уже дал)...
Но этот форум лучше.

[Sergey112233]

Согласен. Спасибо.
Извините за некорректность.

[Sergey112233]

А как эти форматы снимать? Пробовал ставить формат-общий. Не снимается. Только через удаление строк.

[Hugo121]

Можно Очистить-Форматы. Иногда помогает.

[Sergey112233]

Hugo121,
Спасибо.