firstlastrow

[JasonLeVan]

I need a macro that will search column c for the first empty row and then just stay there.

 

[Dryver14]

Option Explicit
Sub LastInC()
Dim finalrow As Integer
Sheet1.Activate
finalrow = Cells(Rows.Count, 3).End(xlUp).Row
Cells(finalrow + 1, 3).Select
End Sub

 

[Dryver14]

This will work on the active sheet not just sheet 1

Option Explicit
Sub LastInC()
Dim finalrow As Integer
With ActiveSheet
finalrow = Cells(Rows.Count, 3).End(xlUp).Row
Cells(finalrow + 1, 3).Select
End Sub

 

[Weaver]

The only problem with that is it will select the row below the last line of data, which if there are gaps in column C may not be the first empty row.

Cells(1, 3).End(xlDown).select

could be more appropriate in this instance.

Unless there are empty cells above your headers, in which case, replace the 1 with the row number of the header row.

HTH

PS it's best not to use integer variables to store row numbers, as the integer type only goes up to 32,768. Use Double instead.

PPS

finalrow = Cells(Rows.Count, 3).End(xlUp).Row
Cells(finalrow + 1, 3).Select

can be replaced with

Cells(Rows.Count, 3).End(xlUp).offset(1).Select

in which case you don't need a variable at all

 

[Dryver14]

Thanks for the tips Weaver,

I learnt 3 things there

the integer point, using offset to save a line of code and of course to read the question properly.

 

[Weaver]

After all that lecturing, I missed out the offset from my solution!

It should be:

Cells(1, 3).End(xlDown).offset(1).select

otherwise the selection is the row above the blank cell.