Как автоматизировать поиск и устранение ошибки "число сохранено как текст"?

Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 12.07.05 (АлексАндр)
'
Dim i, j, S, A, b
'установка размера таблицы по калонке 'А'
rk = Columns('A').Rows(65536).End(xlUp).Row
'
        For i = 2 To rk
 
        ' установка цифрового формата текущей ячейки
        Range('A' & i).NumberFormat = '0.00'
        
        S = Range('A' & i).Value
        
                For j = 1 To Len(S)
                ' перенос только цифр
                If Asc(Mid(S, j, 1)) >= 48 And Asc(Mid(S, j, 1)) <= 57 Then
                
                A = A & Mid(S, j, 1)
                End If
                'установка разделительного знака всегда запятой вместо точки или тире
                If Asc(Mid(S, j, 1)) = 44 Or Asc(Mid(S, j, 1)) = 45 Or Asc(Mid(S, j, 1)) = 46 Then
                
                A = A & ','
                             ' подсчёт исправлений
                      If Asc(Mid(S, j, 1)) = 45 Or Asc(Mid(S, j, 1)) = 46 Then
                      b = b + 1
                      End If
                                                     
                End If
                
                Next j
        
        Range('A' & i) = A
        
        A = ''
        Next i
    
     
    MsgBox 'Произведено ' & b & ' мсправлений', vbOKOnly, 'Отчёт о работе'
    
End Sub

Application.ErrorCheckingOptions.NumberAsText = False

If ActiveCell.Errors.Item(xlNumberAsText).Value = True Then
    ActiveCell.Value = Val(ActiveCell.Value)
End If

Sub notErr(myR As Range)
    For Each mV In myR.Cells
        For i = 1 To 7
            If i = 3 And mV.Errors.Item(i).Value = True Then
                mV.Value = Val(mV.Value)
            Else
                mV.Errors(i).Ignore = True
            End If
        Next i
    Next mV
End Sub