VBA code for inserting certain amount of rows depending on cell valu

[lotty1300]

Hi,
I was wondering how to write some vba code that would insert a given amount of rows depending on the value of a specific cell.
Example:
If cell value is “control” then insert four rows below
If cell value is “pc1” then insert two above and two below

i would greatly appreciate it if somebody could explain how to do this. Thank you.

 

[rpaulson]

Sub Do_it()

If Range("A4") = "control" Then Rows("5:8").Insert Shift:=xlDown
If Range("A4") = "pc1" Then
    Rows("5:6").Insert Shift:=xlDown
    Rows("3:4").Insert Shift:=xlDown
End If
End Sub