Como indicar la dirección de una celda excel con vba

Para Elsa Matilde

La variable "Inicio", no toma el valor de la dirección de la celda

Tengo escrito:

Desde este código toma bien la dirección de la celda

Cells.Find(What:="Apellidos y Nombre", After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Inicio = ActiveCell.Address    (aquí si tiene la dirección de la celda)

En el siguiente, en la variable "Inicio" ya no toma la dirección de la celda y no se ejecuta el resto.         

n = 1
Range("Inicio").Activate   aquí ya no tiene la dirección o referencia de la celda 

Do While ActiveCell.Offset(n, 0) <> ""
Range("a2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(n, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Inicio").Select

n = n + 1

Loop

Alguien me podría decir la forma de indicarle para que tome la dirección de la celda.