Deleting and inserting rows

[blurtoad]

Hi,

Could anyone provide the following 2 VBA codes

(1) that will insert 3 rows starting from row 5 (my data runs from row 5 to row 20)

and the code to
(2) delete every 2nd row starting from row 3 to row 150

Thank you very much.

[VBA Noob]

Try these

Range(Cells(5, 1), Cells(8, 1)).EntireRow.Insert Shift:=xlDown

Dim I As Long

Application.ScreenUpdating = False

For I = 151 To 3 Step -2
Cells(I, 1).EntireRow.Delete
Next I

Application.ScreenUpdating = True

VBA Noob