Hello -

I want to drag down every 9 cells for the entirety of sheet without having to type the following code a million times. 

    
    Range("J1").Select
    Selection.AutoFill Destination:=Range("J1:J9"), Type:=xlFillDefault
    Range("J1:J9").Select
    Selection.AutoFill Destination:=Range("J10:J18"), Type:=xlFillDefault
    Range("J10:J18").Select
    Range("J19").Select
    Selection.AutoFill Destination:=Range("J19:J27"), Type:=xlFillDefault
    Range("J19:J27").Select
-norse