I'm trying to delete the last 4 rows in some worksheets where the last row
with data changes but it's always the last 4 rows that need to be deleted.
Currently I'm doing this manually. Can someone help me with some VBA code?

Thanks
Wm.

Maybe something like this:

Sub DeleteLast4Rows()
Dim lRow As Long

lRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If lRow < 4 Then Exit Sub
ActiveSheet.Range(lRow - 3 & ":" & lRow).Delete

End Sub



--

Hope that helps.

Vergel Adriano


"williamr" wrote:

> I'm trying to delete the last 4 rows in some worksheets where the last row
> with data changes but it's always the last 4 rows that need to be deleted.
> Currently I'm doing this manually. Can someone help me with some VBA code?
>
> Thanks
> Wm.

Range(Cells(Rows.Count - 3, 1), Cells(Rows.Count, Columns.Count)).Delete

RBS

"williamr" <(E-Mail Removed)> wrote in message
news:C21E29F6-890F-47E0-96DA-(E-Mail Removed)...
> I'm trying to delete the last 4 rows in some worksheets where the last row
> with data changes but it's always the last 4 rows that need to be deleted.
> Currently I'm doing this manually. Can someone help me with some VBA
> code?
>
> Thanks
> Wm.

Thank you both!! it works well
Wm.

"RB Smissaert" wrote:

> Range(Cells(Rows.Count - 3, 1), Cells(Rows.Count, Columns.Count)).Delete
>
> RBS
>
> "williamr" <(E-Mail Removed)> wrote in message
> news:C21E29F6-890F-47E0-96DA-(E-Mail Removed)...
> > I'm trying to delete the last 4 rows in some worksheets where the last row
> > with data changes but it's always the last 4 rows that need to be deleted.
> > Currently I'm doing this manually. Can someone help me with some VBA
> > code?
> >
> > Thanks
> > Wm.
>
>