I can't see a simple one-line solution, but maybe one of the real Excel
experts could tell you better.

RBS


"David" wrote in message
...
RB Smissaert wrote

OK, then do:

Sub FindNextRow()

Dim c As Byte
Dim r As Long
Dim LR As Long
Dim LRMax As Long

For c = 1 To 5
LR = Cells(33, c).End(xlUp).Row
If LR LRMax Then
LRMax = LR
End If
Next

Cells(LRMax + 1, 1).Select

End Sub

Change the 5 according to the numbers of columns you have to look at.

I was trying, as stated in my original post, for a single line solution,
but if there's no way, then I guess I'll have to settle for another sub :(

--
David