Code to find first empty row at end of list

[melodramatic]

I am creating a macro that will keep up with a Master Document Log for each project, whereas my users can use the macro face to pull up the MDL, and it will auto-update.

However, the problem that I'm having is figuring out how to tell my code which row to use.

For instance, I have a project file that has 102 entries. I need to put a variable in cell A107 (the data starts at A6). But, in another project, I have only 4 entries at this time, and the data needs to go into cell A9.

What language will I use to have the macro auto-select the correct row?

 

[skywriter]

This goes to the very last row in column A and then goes back up until the first cell it finds with data and returns the row number to the variable LR.

Dim LR As Long     'Variable for the last row number.

LR = Cells(Rows.Count, 1).End(xlUp).Row  'The 1 is for column A, change it for a different column.

 

[melodramatic]

Thank you!!!

 

[skywriter]

Thank you!!!

My pleasure.

 

[Rick Rothstein]

LR = Cells(Rows.Count, 1).End(xlUp).Row 'The 1 is for column A, change it for a different column

Just so you know, Cells can take a column number or column letter reference for its second argument; so, these both produce identical results...

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

LR = Cells(Rows.Count, "A").End(xlUp).Row

 

[secoo140]

sub macro()
Dim LR As Long     'Variable for the last row number.


LR = Cells(Rows.Count, 1).End(xlUp).Row  'The 1 is for column A, change it for a different column.
end

this code not selecting the last one.