Macro para redondear!

Hola expertos en esta ocasión quiero ver si me pueden ayudar en esta macro que aunque funciona no se ajusta a lo que necesito:

Sub redondea()
Range("F2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 0).Select
valor = Int((ActiveCell.Value / 1000 * 1000) - 0.5)
ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
end sub

Lo que necesito es redondear la columna F, tengo numero de este tipo 9.693 y me gustaría que me la dejara de la siguiente forma 9.7, si es 2.004 me lo deje como 2.0 es decir a un solo decimal.

Gracias y espero me puedan ayudar.