Problema con la definición de un rango

Soy nuevo en VBA, por lo que quizás la duda sea trivial . Estoy haciendo una macro en Excel 2011 para mac y la idea es hacer una ,macro que se ejecute en la hoja activa, en ella se debe seleccionar un rango que es variable (cambia de tamaño) para ello hice el siguiente codigo:
'Defino variables
Dim vranfila1, vranfila2, vranfila3, vrancol1, vrancol2, vrancol3 As Integer
'busco la celda donde iniciar la función, requiere que no cambien el registro de la celda
Cells.Find(What:="Registro histórico de Nivel de Ayudantes", After:= _
ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
'bajo una fila
ActiveCell.Offset(1, 0).Select
'asigno el valor de la fila inicial del rango a una variable
vranfila1 = Trim(Str(ActiveCell.Row))
vrancol1 = Trim(Str(ActiveCell.Column))
'me muevo al final de la lista con datos
Selection.End(xlDown).Select
'asigno el valor de la fila inicial del rango a una variable
vranfila2 = Trim(Str(ActiveCell.Row))
vrancol2 = Trim(Str(ActiveCell.Column))
'asigno el rango e inserto
ActiveSheet.Range(Cells(vranfila1, vrancol1), Cells(vranfila2, vrancol2)).Select
Selection.Copy

Sin embargo me arroja el sgte error:
"Se ha producido el error '1004' en tiempo de ejecución:
Fallo en el método '_default' de objeto 'Range'