Excel - Añadir decimales a un listado

sub divide()

Sheets("NOMBRE DE LA HOJA ").Select

Range("A1").Select 'el control se hará sobre la columna A, a partir de la fila1

Dim x As Double

x = 1

While ActiveCell.Value <> ""

    Numero= Sheets("NOMBRE DE LA HOJA ").Cells(x, 1).Value

    Numero=Numero/1000

    Sheets("NOMBRE DE LA HOJA ").Cells(x, 1).Value=Numero

    ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente

Wend

End Sub