Macro to find bottom row and insert new row

[FIRSTCHOICE]

All,

I have a spreadsheet where I have a section where the user can input new information and the idea would be for the user to then click a button and the new information is added to bottom on the spreadsheet and then numbered it at the last item. I have the whole macro created but I cannot seem to figure out how to write a few lines that would tell the macro to find the bottom line and insert a new line and populate it with the data in the input cells. If anyone could help I would greatly appreciate it. If any additional information is needed please let me know, I am a little wary of posting the document because there is some sensitive information in it.

Thanks

 

[SteveO59L]

To locate the last row in col A

Dim LASTROW As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

 

[FIRSTCHOICE]

Thanks!

Can I put that in the middle of a already recorded macro? Also, that selects the cell to insert would I just need to add

Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove

 

[SteveO59L]

If you want to add to an existing list, just use offset

 

[FIRSTCHOICE]

Thank you for your help but this still isn't able to help my situation.

I need to find the last row and insert a row above and I would like to put this into an already recorded macro so I don't have to create the whole thing from scratch.

Steps
1) Find last row
2) Insert row above

 

[SteveO59L]

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
Rows(LASTROW).Select
Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove

 

[FIRSTCHOICE]

YES!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

THANK YOU! You have restored my colleagues confidence!

 

[FIRSTCHOICE]

SteveO59L Thank you so much!

I have run into 1 unforeseen issue. when my macro goes to copy the information it is still copying into the same cell and I need it to copy into the new cell that we inserted at the bottom. Is there a quick fix for this?

Thanks,

 

[SteveO59L]

How are you selecting the cell?

 

[FIRSTCHOICE]

I actually messed around with the vba a little and figured it out. But of course I ran into another issue. In Cell G:27 there is a fomrula that I want to copy down to the last row.

Selection.AutoFill Destination:=Range("G27:G28"), Type:=xlFillDefault
Range("G27:G28").Select

Could I do:

Selection.AutoFill Destination:=Range("G27:LastRow"), Type:=xlFillDefault
Range("G27:Lastrow").Select