Select last n rows and delete?

I've done a search and nothing quite seems to fit. Basically I merely
want to select the last /n/ rows in a certain column and then delete
those entire rows.
n being four for the forseeable future.

It started looking like this:
//--->
Range("B" & Rows.Count).End(xlUp).Select
Selection.Offset(RowOffset:=-3).Select
//--->
But anything after doesn't do what I'd want.

I appreciate a suggestion.

Hi JD,

Try:

'=============>>
Public Sub TesterD()

Dim n As Long

n = 4

Cells(Rows.Count, "B").End(xlUp).Offset(n - 1).Resize(n).Delete

End Sub
'<<=============


---
Regards,
Norman



"JD" <[email protected]> wrote in message
news:[email protected]...
> I've done a search and nothing quite seems to fit. Basically I merely
> want to select the last /n/ rows in a certain column and then delete
> those entire rows.
> n being four for the forseeable future.
>
> It started looking like this:
> //--->
> Range("B" & Rows.Count).End(xlUp).Select
> Selection.Offset(RowOffset:=-3).Select
> //--->
> But anything after doesn't do what I'd want.
>
> I appreciate a suggestion.
>

Hi JD,

Correcting, try:

'=============>>
Public Sub TesterD()

Dim n As Long

n = 4

Cells(Rows.Count, "B").End(xlUp).Offset(1 - n). _
Resize(n).EntireRow.Delete
End Sub
'<<=============


--
Regards,
Norman

Norman Jones wrote:
> Hi JD,
>
> Correcting, try:
>
> '=============>>
> Public Sub TesterD()
>
> Dim n As Long
>
> n = 4
>
> Cells(Rows.Count, "B").End(xlUp).Offset(1 - n). _
> Resize(n).EntireRow.Delete
> End Sub
> '<<=============

That one works perfectly, thanks. Question; the resize works as a range
because the variable n has been declared?

Hi JD,

> That one works perfectly, thanks. Question; the resize works as a range
> because the variable n has been declared?

The Resize Property returns a resized range.

The syntax for Resize is RangeExpression(RowSize, ColumnSize).

The suggested code uses an abbreviated form, Resize(n), which leaves the
ColumnSize of the range unchanged.


---
Regards,
Norman



"JD" <[email protected]> wrote in message
news:[email protected]...
> Norman Jones wrote:
>> Hi JD,
>>
>> Correcting, try:
>>
>> '=============>>
>> Public Sub TesterD()
>>
>> Dim n As Long
>>
>> n = 4
>>
>> Cells(Rows.Count, "B").End(xlUp).Offset(1 - n). _
>>
>> Resize(n).EntireRow.Delete
>> End Sub
>> '<<=============
>
> That one works perfectly, thanks. Question; the resize works as a range
> because the variable n has been declared?
>