Macro para copiar 30 veces una celda en otra hoja y continuar hasta encontrar celda vacía

Muy buenos días, en mi trabajo tengo que copiar de la hoja 1, en la columna A, un rango de datos (A1:A1500) a la hoja 2. El tema es que se tienen que copiar 30 veces cada celda y continuar con  la celda siguiente hasta encontrar una celda vacía.

Tengo este código pero me marca un error "1004 error definido por la aplicación o el objeto"

Sub ejemplo()
Sheets("Hoja1").Select
Range("a1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Copy
For x = 1 To 30
Sheets("hoja2").Range("a65000").End(x1Up).Offset(1, 0).PasteSpecial x1PasteValues
Next
ActiveCell.Offset(1, 0).Select
Loop
Sheets("hoja2").Select
Rows("1:1").Delete
End Sub

Espero que me puedan ayudar, por favor me urge¡¡¡¡. 

Gracias