Question : How to select range to append to?

this works if i use Active cell, but i want it to always apend (somthing 9999 to the begining of everything in column A:A if its not blank.

Sub DoubleSlash()
Dim str As String
Dim cel As Range
Set cel = Range("A:A")  << error here
If cel = "" Then Exit Sub
If Left(cel, 2) = "9999" Then
    cel = Mid(cel, 3, Len(cel) - 2)
Else
    cel = "999" & cel
End If
cel.Offset(1, 0).Activate
End Sub

Answer : How to select range to append to?

Sub DoubleSlash()
Dim str As String
Dim cel As Range
For Each cel In Range("A:A")
If cel = "" Then Exit Sub
    If Left(cel, 2) = "9999" Then
        cel = Mid(cel, 3, Len(cel) - 2)
    Else
        cel = "999" & cel
    End If
Next cel
End Sub