finding next empty row from bottom up!!

[matpj]

hi, I need to find the next empty row in my data range, but it has several empty rows throughout it.
I need to be able to measure from the bottom of a worksheet upwards, on column B
and then select the next empty row

any ideas?

[swatsp0p]

Use this code:[vba]Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub[/vba]

places cursor in cell A99999 where 99999=the first row below the last entry in column A

[swatsp0p]

Use this code:[vba]Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub[/vba]

places cursor in cell A99999 where 99999=the first row below the last entry in column A

Of course for Column B, simply change the reference in the above code from 'A' to 'B' each place it occurs.

Also, I forgot to mention that if you want to skip 1 or more rows below the last entry, adjust the "Offset(rRng.Count, 0)" by changing the zero to as many rows as you want to skip. e.g to leave 2 blank rows, change the zero to a 2. If the last active row was 100, the cursor would be placed in 103 (skipping 101 & 102).

You can assign this code to a button or simply run it by pressing Alt+F8 and selecting "lastrow" from the list.

Does this work for you?

[Campbellj4]

Part of your solution will probably need this code:

Find the very last used cell in a Column:

Sub LastCellInColumn()

Range("A65536").End(xlup).Select

End Sub

Since you know "B" is the column with the last data, change the code to read:

Range("B65536").End(x1up).Select

Perhaps one of the more experienced members of this group can show us how to use this...