Filling a range, 2 [Excel macro]

Sub fill_range_2()
    ' See also fill_range_1

    dim rng as range
    dim itr as interior

    set rng = range("b3:e5")

    ' inserting a row (see insert_row.vb) ...
    Rows("4:4").insert shift:=xlDown
    ' ... extends the range
    
    set itr        = rng.interior
    itr.ColorIndex = 6        ' Yellow
    itr.Pattern    = xlSolid

End Sub