Dynamic range

[mg_reich]

I'm sure the info that I need is in a post somewhere, but I can't seem to find what I'm looking for.

I need to copy a row consisting of 4 cells and paste to a dynamic list. I am basically looking for a way to write a macro that finds the end of the list and pastes there.

Any ideas?
Thanks.

 

[mrhartley]

Hi, Is this any good to you?

Sub test()

Dim lastrow
lastrow = Range("A65536").End(xlUp).row
Range("A" & lastrow + 1).Select

End Sub

It will take you to the last empty row in your sheet. You can adapt it to work against other columns besides A and also to past with too.

Regards
Mark

 

[mg_reich]

No, I don't think that will work. There are multiple instances on one sheet. There are several lists on one sheet.