Rows("2:2").Select
    Selection.Insert Shift:=xlDown

        With xlapp
            .Rows("2:2").Select()
            .Selection.Insert()
        End With

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov