Find Last Cell (with a twist) 1

[pluto1415]

I've got an Excel spreadsheet (designed by an outside source - I cannot change it's formatting) that basically has a bunch of header rows (23), a couple empty rows, then rows of data (anywhere from 2 - 5000), a couple more empty rows, then a couple footer rows. What I need to do is start at A26 find the last of the data rows that is populated. So basically, start at a26, find the first empty row, then -1.

I've found this suggested several places: Columns("A:A").Find(What:="", LookAt:=xlWhole).Row

But I'm not really looking for the very first empty row, I'm looking for the first one AFTER row 26 and I'm not sure how to modify this.

 

[SkipVought]

hi,

LAST row in the data...

dim lLastRow as long

with [A26].CurrentRegion
  lLastRow = .Rows.Count + .Row - 1
end with

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[pluto1415]

That did it - Thanks a TON!

 

[SkipVought]

I prefer mine, shaken, not stirred -- no twist. ;-)

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]