Inserting a row after last row of data

[easybpw]

Hi everyone! I have a spreadsheet for work that has a number of rows of data starting at row 1. In this example I have data in rows 1-118 and the total of the data is in row 121. I have created a userform that inputs the data for me. However every time prior to using the userform I have to manually insert more rows after row 118 so that I don't run out of room before my total line. What I would like is for a new row to be inserted after my last row of data BUT before my total line every time I open the userform I have created. Does this make sense?

Bill

 

[SIXTH SENSE]

hi!
I got no more time!
but this will lead you near to a solution.
Range("a65536").End(xlUp).EntireRow.Insert Shift:=xlShiftDown

this will insert one row before the last row!

 

[onlyadrafter]

Hello,

try this code

    Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert

 

[easybpw]

Thanks for the help. Once I inserted the code in the correct place it is working like it should. Thanks again!

Bill