Macro Code For "Last Row"

Question

Hello,

My Macro looks like the following:

Selection.AutoFill Destination:=Range("Q2:Q5258")

    Range("Q2:Q5258").Select

This is great as long as I don't go beyond row 5258.

I have a new file and the macro stopped at row 5258.

What can I change this so there will never be a limit on row or column?

Thanks!

P.S.

I just recording the macro  hitting the botton right corner of the cell and double clicking when I was done. Not sure what happened.

Any advice or direction would be greatly appreciated!

Answer 1

I looked at this page earlier today, but could not figure how to get it to work.

Answer 2

If you don't want to hard code the end row then you must have a column

to reference for the end row.

I will assume that Column P is a reference column

and there is a value in Q2 to be copied down

Dim Lrow As Long

Lrow = Cells(Rows.Count, "P").End(xlUp).Row

ActiveSheet.Range("Q2").Select

Selection.AutoFill Destination:=Range("Q2:Q" & Lrow)

This will copy Q2 down as far as there is data in column P

Gord

Answer 3

Hi, here you have different ways

http://www.thespreadsheetguru.com/blog/2014/7/7/5-different-ways-to-find-the-last-row-or-last-column-using-vba