Copiar Formula con celda activa

Tengo esta macro:

Sub numero()
Dim celda As Range
Dim Rng As Range
Set Rng = Application.InputBox(prompt:="seleccione la celda con numero", Type:=8)
line1:
For Each celda In Selection
celda.FormulaLocal = "=+CONCATENAR(SI(DERECHA(TEXTO(A1,""#,###0.00""),2)=""00"",""00"",DERECHA(TEXTO(A1,""#,###0.00""),2)),""/100 NUEVOS SOLES"")"
Next
End Sub

Lo que hace es pedir la celda, señalo la celda y copia la formula de la macro, el problema es que me toma como referencia "A1" y no la celda que yo elijo, como puedo hacer cambiar ese dato de "A1".....muchas gracias de antemano.