Repeat Copy Block

Selects a range and copies it to fill the destination - autofill

Range("B3:J4").Select
Selection.AutoFill Destination:=Range("B3:J23"), Type:=xlFillDefault