Excel Object Model: Range.Insert

option explicit

sub main() ' {
    with activeSheet
        .cells(3,2) = "ABC"
        .cells(3,3) = "DEF"
        .cells(3,4) = "GHI"
        .cells(4,2) = "ZYX"
        .cells(4,3) = "WVU"
        .cells(4,4) = "TSR"
        .row(4).insert xlDown
    end with
end sub ' }