Duda con Bucle Do while, copiar valores si celda esta

He creado una macro donde se selecciona un rango A2:G8 de una hoja1 y se pega en a2 de la hoja2, el problema es que lo hice con el bucle do while, y ahí es donde surge mi duda, se tiene que pegar en a2 siempre y cuando en b2 no haya datos ... Yo lo hice de esta manera, pero en ningún momento considera b2 por lo que cuando hay datos en blanco en la columna A me los copia encima.
Muchas gracias de antemano
Sub Reporte()
Sheets("HOJA1").Select
Range("A2:G8").Select
Selection.Copy
Sheets("HOJA2").Select
Range("A2").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
END SUB

{"lat":9.93571127741001,"lng":-84.0534782409668}