Cuestión : ¿Cómo seleccionar la gama añadir a?

esto trabaja si utilizo la célula activa, pero la quiero siempre al apend (algo 9999 al principio todo en la columna A: Si su no str del
Dim de blank.

Sub DoubleSlash () como String
Dim cel como Range
Set cel = gama (“A: ”) << el here
If del error cel = "" entonces sale Sub
If dejado (cel, 2) = “9999” Then
cel = mediados de (cel, 3, Len (cel) - 2)
Else
cel = “999” y el cel
End If
cel. Compensación (1, 0). Activate
End Sub

class= del

Respuesta : ¿Cómo seleccionar la gama añadir a?

DoubleSlash secundario ()
Str dévil como secuencia
Cel dévil como gama
Para cada cel en la gama (“A: ”)
Si el cel = el "" entonces salen el submarino
    Si está ido (cel, 2) = “9999” entonces
        cel = mediados de (cel, 3, Len (cel) - 2)
   
        cel = “999” y cel
    Terminar si
Cel siguiente
Submarino del extremo