Enviar detalles de boleta a registro de ventas

Hola ,

Pretendo agregar los detalles de una boleta al registro de compras (Hoja5) , y en Hoja2 desde la celda A9 se encuentran los detalles de la boleta;
COD Cant. Producto P.Unit Importe
CÁ580 10 CÁMARA 1,966.00 1,966.00
AP) 12 APPLE IPOD 1,500.00 18,000.00

Tengo este código:

Sub agregar()
Dim I As Integer
Dim J As Integer
Dim final As Integer
Dim CONTAR As Integer
For I = 9 To 20
'Datos de detalle de boleta
If Hoja2.Cells(I, 2) = "" Then
final = I - 1
Exit For
End If
Next
CONTAR = 2 ' Range("A65536").End(xlUp) 'Observación
For J = 9 To final
CONTAR = CONTAR + 1
Hoja5.Cells(CONTAR, 1) = Hoja2.Cells(J, 2) 'Código
Hoja5.Cells(CONTAR, 2) = Hoja2.Cells(J, 3) 'Cantidad.
Hoja5.Cells(CONTAR, 3) = Hoja2.Cells(J, 7) 'P.Unitario.
Hoja5.Cells(CONTAR, 4) = Hoja2.Cells(J, 9) 'Importe.
Next
End Sub

Con CONTAR =2 funciona genial, el problema se da cuando registro otro detalle lo sobreescribe, por eso agregué CONTAR = Range("A65536").End(xlUp) y me sale error.

Si me puedes ayudar por favor.

Desde ya te agradezco

Saludos.