Autofill alle 31 Zellen in Excel Macro

Question

ich diese Blattstruktur

A1 

Cat001 
useless 
useless 
. 
. 
. 
31 times useless 
. 
. 
. 
empty row 
Cat002 
useless 
useless 
. 
. 
. 
31 times useless 
. 
. 
. 
empty row 

Und so weiter, so was im Versuch zu tun haben, ist ein Makro, das eine A1, Autofill mit dem Wert auf A1 die nächsten 31 Zeilen beginnen eine Zeile überspringen, nehmen Sie den Wert auf A33 auf A33 die nächsten 31 Zeilen den Wert Autofill und so weiter

Answer 1

dim rng as range 

set rng=activesheet.range("A1:A32") 
do while application.counta(rng)>0 
    rng.value=rng(1).value 
    set rng=rng.offset(32,0) 
loop