Shifting data down

M

morry

I have a form that pastes data into a worksheet. I have informatio
about half way down the page. How do I shift that data down so tha
new information coming in from my text box can be placed between th
top and that other data.

Right now my code just starts pasting after the heading that is in th
middle of the page.

With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "G").End(xlUp).Row

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

Any Suggestion?

Thank you,
Morr
 
M

mudraker

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top