add a new row after last existing row

[stewglyn]

I need to add a row into an excel spreadsheet after the last row with text in it. Either through a macro or vba. Just can't seem to get there. Any ideas recieved gratefully!

 

[SkipVought]

Hi,

First, here's a function that returns the last row number.

Function LastRow() As Long
    With ActiveSheet.UsedRange
        LastRow = .Rows.Count + .Row - 1
    End With
End Function

Then use the function to select the last row...

   Cells(LastRow, 1).Select

Hope this helps
Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[stewglyn]

thank you that works but when i try and then copy the contents of the last row which your function leads me to I can't get it to work dynamically and keep copying and pasting the last row to the next one down. Thanks for your help though.

stewart
never looked at excel vba til now I'll stick to access!

 

[SkipVought]

Tell me what you are doing? How are you using this function? Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[stewglyn]

Well i have a booking system. Each new booking is added onto the end of the existing range as a new row. Each of the existing rows has various formats on the cells. On click of a button i want to make the first cell on the row below the last row in the range active. I thought i could find the end of the range, copy the last row in the range into the row below and then use the clear contents method.

stewart

 

[SkipVought]

It would sure help to see your code. Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com