¿Cómo puedo Redondear un numero con una Macro?

.

Buenas, Andrés

De acuerdo a lo que solicitas exactamente, estas instrucciones redondean el valor de la celda activa al la decena, centena, etc según le indiques dentro del código, colocándolo en la celda debajo de ella:

Sub redo()
Posic = 100 ' cantidad de ceros a la derecha del numero que deseas redondear  
On Error Resume Next
ActiveCell.Offset(1, 0).Value = Round(ActiveCell.Offset(0, 0).Value / Posic, 0) * Posic
Err.Clear
On Error Goto 0
End Sub

Pero, la siguiente fórmula, resuelve el problema fácilmente sin necesidad de macro:

=REDONDEAR(A1; -2)

[Considera si usas comas o punto y coma para separar argumentos de las funciones. Yo usé ";"]

Nota el signo menos en el segundo argumento. El valor que le indiques será la cantidad de ceros que colocará a la derecha.

Así, para tu primer ejemplo, usarías -1. Para el segundo, -2 y para el tercero -3.

.