Из-за макроса не работает функция прогрессии

[Kraimon]

На листе где стоит макрос почему-то не работает функция прогрессия. Как-то можно это исправить?
Вот макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
lr = Sheets("выбыли").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
With Me
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
.Rows(Target.Row).Copy Sheets("выбыли").Rows(lr)
.Rows(Target.Row).Delete
End If
End With
End Sub

[Казанский]

Как именно не работает? Давайте файл-пример. У меня работает.

[Kraimon]

123.zip файлик прилагаю

[Казанский]

Макрос тут ни при чем
Установите формат ячеек "Общий" вместо "Текстовый" - заработает.
Я этого не знал, спасибо.

[Kraimon]

тебе спасибо