A bit more details on the layout of your sheet will help

Do you have data above the headings?

If yes is there blank rows between this data and the heading

if yes you could use

With Worksheets("Notes")
cUseRow = .Cells(1, "G").End(xlDown).Row+1
' may need to change this to insert muliple rows
rows(cuserow).Insert Shift:=xlDown


..Cells(cUseRow + 2, "G").Value = "Top Number: " & TopNum.Text
..Cells(cUseRow + 3, "G").Value = "Part Number: " & LPartNum.Text
..Cells(cUseRow + 4, "G").Value = LNotes_Box.Text


---
Message posted from http://www.ExcelForum.com/