Hi all,
Another newbie here, I have quite a conundrum that I have been working on and have not been able to figure out. I have a worksheet that will be used as a project checklist. This Checklist will have to be completed before projects can be approved. I need the user to select information about the project type from a drop down list in a worksheet, and depending on the information provided, I need excel to insert rows beneath that cell that was updated. The drop down list is in 10 cells in subsequent rows, and i need the program to run through the cells finding all the cells with the value "Pressure Vessel". I have created the following code:

Sub AutoOpen()
Worksheets("Sheet1").OnEntry = "CheckIt"
End Sub

Sub CheckIt()

Dim i As Integer
Dim rng As Range
Dim fnd As Range

i = 1
rng = ("B15:B100")

With Worksheets(Sheet8).Range(rng)
Set fnd = Selection.Find(What:=("Pressure Vessel"), LookIn:=x1Values, _
LookAt:=x1Part, SearchOrder:=x1ByRows, SearchDirection:=x1Next, MatchCase:=True, _
SearchFormat:=False)

If Not fnd Is Nothing Then
Rows("8:12").Select
Selection.Copy
Offset(Rows(fnd),1).Select
Selection.Insert Shift:=xlDown

Do
fnd.Value = "Pressure Vessel"
Set fnd = Cells.FindNext(fnd)
If Not fnd Is Nothing Then
Rows("8:12").Select
Selection.Copy
Offset(Rows(fnd),1).Select
Selection.Insert Shift:=xlDown
End If
Loop While Not fnd Is Nothing
End If
End With
End Sub

I have the cells that i would like to insert in rows 8:12. They are hidden so the user wont see them until they are inserted.

Like I said, I am a newbie. I have spent a couple days reading up on excel VBA, learning about the functions and errors, and trying to figure it all out, but I am at my wits end. Any help would be greatly appreciated!

Thank You