Endnu en makro

Nu må jeg krybe til korset igen og kan desværre ikke finde ud af det selv.

Jeg har fået hjælp til denne makro som kopierer en række fra et ark og indsætter rækken på et ark jeg aktiverer makroen fra.

Men hvad hvis jeg skal kopiere flere rækker en den ene ? Altså række 200 til 212 f.eks.

Makroen ser sådan ud:

Sub Linie()
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Worksheets("Stamdata").Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0).EntireRow
End Sub

Der hvor rækkerne skal indsættes skal de ikke slette det der står i forvejen men i stedet flytte den nedad...

Kan i hjælpe igen i kloge mennesker