How to Delete Range ?

Giganews Newsgroups
Subject: How to Delete Range ?
Posted by:  slappy54 (no…@none.com)
Date: Sat, 04 Oct 2003

What I have works, but it's pretty slow.  It selects the first blank cell in
a column and deletes the next fifteen rows.  Is there a better way of
deleting those 15 rows?

Range("D2").Select
    Selection.End(xlDown).Offset(1, 0).Select
    For I = 1 To 15
        ActiveCell.Offset(1, 0).EntireRow.Delete
    Next I

Thanks,
Mike

Replies