Problemas con el pasaje de Texto a Numero

Dante, ¿te acordás que te dije que había resuelto lo de pasar de texto a numero?... Bueno, hay algo que no funciona y quizás puedas ayudarme con esto!

Dispongo de este código

'1° PASO DE TEXTO A NUMERO-----------------------------------------------

   Sheets("STOQUEO").Select

    Range("Y2").Select

    ActiveCell.FormulaR1C1 = "=IF(RC[-23]="""","""",VALUE(RC[-23]))"

    Range("Y2").Select

    Selection.AutoFill Destination:=Range("Y2:Y25000"), Type:=xlFillDefault

    'Range("Y2:Y65000").Select

    Columns("Y:Y").Select

    Selection.Copy

    Range("Y1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("Y2").Select

    Application.CutCopyMode = False

Pero al hacer el segundo paso, que es cambiar el articulo usado a articulo nuevo, resulta que se vuelve a poner en formato texto!

'2° PONGO TODOS LOS ARTICULOS CON CODIGO NUEVO

ActiveSheet.Range("Y1") = "Codigos Nuevos"

ActiveSheet.Range("B2").Select

While ActiveCell.Row <= ActiveSheet.Range("D65536").End(xlUp).Row

    If Len(ActiveCell) < 6 Then

        ActiveSheet.Range("Y" & ActiveCell.Row) = ActiveCell

    ElseIf Left(ActiveCell, 1) = 3 Then

        ActiveSheet.Range("Y" & ActiveCell.Row) = ActiveCell.Value - 300000

    ElseIf Left(ActiveCell, 1) = 4 Then

        ActiveSheet.Range("Y" & ActiveCell.Row) = ActiveCell.Value - 300000

    ElseIf Left(ActiveCell, 1) = 6 Then

        ActiveSheet.Range("Y" & ActiveCell.Row) = ActiveCell.Value - 400000

    Else

        ActiveSheet.Range("Y" & ActiveCell.Row) = ActiveCell

    End If

ActiveCell.Offset(1, 0).Select

Wend

¿Dónde podría estar el problema?