Range / Deleting Selection

[sabascal]

Hi all,

Could you help me on the following.
1) Given a range called R1 how can I delete the last p rows (entire row)
Thks Seb

 

[TonyJollans]

Hi Seb,

This should do it:

If p > R1.Rows.Count Then
    R1.EntireRow.Delete
Else
    Range(R1(R1.Rows.Count - p + 1, 1), R1(R1.Rows.Count, 1)).EntireRow.Delete
End If

but I can't help feeling there's a slicker way.

Enjoy,
Tony

 

[sabascal]

I tried to run the following simple procedure to make it more efficient: for some reason I keep getting errors:
"Application Defined or Object defined Error"
Any idea why? any quick fix?


Sub test()
Worksheets("test&quot.Activate
Range(Cells(1, 1), Cells(7, 7)).Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

PS: the 1st 2 lines run fine problem is with the delete statment.

Cheers,
Seb