Ayuda en una macro

Para esto no necesitarás una macro ya que Excel cuenta con una opción.
En alguna celda debes ingresar 1000 (con el formato moneda que estés utilizando en tus datos)
Cuando quieras convertir, seleccioná esta celda, clic en copiar, seleccioná el rango de tus datos (con ctrl podes seleccionar celdas discontinuos), menú Edición, Pegado especial, Dividir.
Esta opción te permite regresar luego a tus datos reales, repitiendo el proceso pero ahora con la opción Multiplicar.
Saludos
Elsa
** Más de 100 Trucos y Soluciones Excel desde:
http://es.geocities.com/lacibelesdepunilla/tys

Creo que la macro que puedes usar es la siguiente:
Sub miles()
Dim celda As Range
For Each celda In Selection
celda.Value = celda.Value / 1000
Next celda
End Sub
**Esta macro debes colocarla en un módulo o debes agregarla en un módulo dentro de tu archivo Personal.xls**
Antes de ejecutar la macro debes seleccionar las celdas a las cuales vas a aplicar esta división.

Fíjate si te sirve algo así
Sub divideMil()
Dim cellAux As Range
For Each cellAux In Selection
cellAux.Value = cellAux.Value / 1000
Next cellAux
Set cellAux = Nothing
End Sub