HOLA me ayudas en la macro después de copiar salga un msgbox cuantas filas copio

hola esta es la macros q me ayudastes..la cual me minimizo mi trabajo pero podrías modificarlo para q cuando llegue a la celda vacía y salga el msgbox también aparezca cuantas filas.....copio. Te agradecería mucho...eduardo......

Sub buscabco()
'Creada por Dam
Sheets("Hoja1").Select
i = 1
Do Until Cells(i, 1) = ""
ActiveSheet.Range(Cells(i, 1), Cells(i, 6)).Copy
Sheets("Hoja2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
i = i + 1
Loop
Sheets("Hoja1").Select
MsgBox ("Celda vacía " & "A" & i)
End Sub