Dim rng as Range
set rng = cells(rows.count,2).End(xlup)(2)
if rng.row <= 85 then
Range(rng,Range("B85")).EntireRow.Delete
end if

--
Regards,
Tom Ogilvy

"ssciarrino" wrote in message
...
I have created a worksheet that creates journal files for our financial
system for upload. Currently we have basic macros to do repetitive
operations such as unhide sheets and remove columns.

The worksheet has a default 85 rows and is populated to equal or less than
85 rows. I want to create a macro whereas when the first row reaches no
more
input to truncate all rows below it.

For example, column B is the account field, if row 23 is the last line of
the journal load, I need row 24 to 85 to be deleted.

Not sure if a regular macro or visual basic can be used. If VB, can
someone
give a sample script? Thanks