Pokud víš, od kterého řádku začít a kolik řádků máš vkládat, tak už je to malina:

' Radek - proměnná s číslem řádku, od něhož potřebuješ vložit řádky
' PocVloz - proměnná s počtem vkládaných řádků
' Vyraz - pomocný výraz pro příkaz Rows
Vyraz = Trim(Str(Radek)) + ":" + Trim(Str(PocVloz + Radek - 1))
Rows(Vyraz).Insert Shift:=xlDown