Delete all cells below active

[Ronald_one]

Hi there!

Although I've been cruising the forums for a while this is my first post!

What I'm trying to do is rather simple (I think). I want to delete all of the cells below the active cell.

I've uncovered this little gem of script:

Sub MassDeleteAboveActive()
Rows("1:" & (ActiveCell.Row - 1)).Delete
End Sub

But it does the exact opposite. I'm sure this can be tweaked to do what I want but I'm just not clear on how to do this.

Any ideas?

Thanks a million!

 

[Andrew Poulsom]

Welcome to the Board.

How about?

Sub MassDeleteBelowActive()
    Rows((ActiveCell.Row + 1) & ":" & Rows.Count).Delete
End Sub

 

[Ronald_one]

Woah, that was fast Thanks a million Andrew!