Deleting Rows Above & Columns To Left Of A Specific Cell

[tobyjuggler]

I'm trying to write a macro that will delete all of the rows above and all of the columns to the left of a selected cell (the cell might be a difeerent one each time the macro is run) - the aim being that that active cell ends up being in the A1 position. Does anybody have any idea how this is done? Any help would be much appreciated.

 

[DarkSun]

This will do it.

Private Sub DeleteRowsAndColumns()
ActiveSheet.Rows("1:" & ActiveCell.Row - 1).Delete

For i = ActiveCell.Column - 1 To 1 Step -1
ActiveSheet.Columns(i).Delete
Next i
End Sub

You might like to find a quickier way to delete the columns.

 

[tobyjuggler]

Thanks a lot DarkSun, you are a star! (forgive the pun, please). It works perfectly.