Sub Convert()
'Номер столбца в котором данные
Const intDataColumn =  2 
    Dim intLastRow%, i%
'Находим последнюю строку откуда начинаются данные (quote: Заранее число ячеек имеющих хоть какое либо значение неизвестно)
    intLastRow = Cells.SpecialCells(xlLastCell).Row
    Do While (intLastRow >  1 ) And (Trim(Cells(intLastRow, intDataColumn)) = "")
        intLastRow = intLastRow -  1 
    Loop
'данные есть
    If Trim(Cells(intLastRow, intDataColumn)) <> "" Then
        For i =  2  To intLastRow
        'если ячейка выделена красным цветом и содержит числовые данные
            If (Cells(i, intDataColumn).Font.Color = vbRed) And (IsNumeric(Cells(i, intDataColumn).Value)) Then
                Cells(i, intDataColumn).FormulaR1C1 = CStr(Cells(i, intDataColumn).Value)
                Cells(i, intDataColumn).Select
                Cells(i, intDataColumn).NumberFormat = "General" 'или же Cells(i, intDataColumn).NumberFormat = "0.00"
            End If
        Next
    Else
'данных нет
        MsgBox "Отсутствуют данные!", vbInformation
    End If
End Sub