Problemas con la estructura función While

Trabajo en Excel 2011 para mac, similar a Excel 2010 para PC conocida como versión 14.0.2.
Trato de trabajar con la función While, pero al escribir este codigo (que es el sugerido en varias páginas) me marca error: Caso 1
While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
End While
Pero al hacerlo con este formato me acepta Caso 2:
Do While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
Loop
Hay algún error en como escribo la sentencia en el primer caso???
O no acepta este formato la versión indicada???