Hi Guys.
It dosn't matter how many row in the worksheet.
how to create a formula or macro to del only the last two rows.

the last 2 rows that I want to del is not the last two rows of the worksheet.
the last 2 rows I want to del is in my report, sometime the last two rows at
row 258 and 259. or 158,159, or 236,237.

"jlclyde" wrote:

On Nov 20, 12:39 pm, Johnny wrote:
Hi Guys.
It dosn't matter how many row in the worksheet.
how to create a formula or macro to del only the last two rows.

All worksheets have the same number of rows. If you want to delete
rows 65536 and 65535 that is a simple macro.
Sub Deletelast2rows()

Range("A65535", "IV65536").Delete

End Sub
If you want the last two rows that have something in them then that is
a little trickier.

You will use End(xl(up)
Jay

Can you pick out a column that would be used to determine that last used row?

Dim LastRow as long
with worksheets("sheet9999")
lastrow = .cells(.rows.count,"A").end(xlup).row
if lastrow 1 then
.rows(lastrow-1).resize(2).delete
end if
end with

I used column A to determine that last used row.

Johnny wrote:

the last 2 rows that I want to del is not the last two rows of the worksheet.
the last 2 rows I want to del is in my report, sometime the last two rows at
row 258 and 259. or 158,159, or 236,237.

"jlclyde" wrote:

On Nov 20, 12:39 pm, Johnny wrote:
Hi Guys.
It dosn't matter how many row in the worksheet.
how to create a formula or macro to del only the last two rows.

All worksheets have the same number of rows. If you want to delete
rows 65536 and 65535 that is a simple macro.
Sub Deletelast2rows()

Range("A65535", "IV65536").Delete

End Sub
If you want the last two rows that have something in them then that is
a little trickier.

You will use End(xl(up)
Jay


--

Dave Peterson