Populating last low from button

[johnpants]

Hi, I have 2 worksheets, and would like the data from s/s 2 to enter into the last row in s/s 1 that has been filled. I can get it to enter into the next empty row, but in this case I want it to enter into the cells I select in the last 'populated' row.

Is this possible? How would I go about this?

Thanks,

John.

 

[stdz]

Hello John,

If you can get the first empty row, then the last populted row is:

first empty row -1

Ciao,

Don.

 

[johnpants]

Thank you, I should have thought about that to be honest! Doh!

This is the code I am currently using, but it doesn't actually fill the cell with anything at the minute...

What do I need to change?

Private Sub CommandButton1_Click()
Sheets("Data").Range("M65536").End(xlUp).Offset(-1, 0) = "I3"
Unload Me
End Sub
[\code]

"I3" is the ceel that I want it to copy from and Column M on worksheet Data is where I would like it to enter on the last used row...

Is this the right type of command?

Thanks,

John.

 

[stdz]

Hello John,

Sorry, I've been travelling so couldn't reply before !

This code will put the contents of cell I3 in the last used cell in column M.

Ciao,

Don.

Private Sub CommandButton1_Click()
Dim lastRow

lastRow = Range("M65536").End(xlUp).Row
Range("M" & lastRow) = Range("I3")

End Sub