Deleting all rows above selected cell

[everythingtrue]

I need a macro that will delete all rows above the selected cell. I've tried a few things, but I can't seem to get the macro to select backward and then delete the rows. It keeps deleting the column.

 

[Jon von der Heyden]

Hi

Would you like to share your code so that we can see what you are doing?

Perhaps;

Public Sub DelRows()
    If ActiveCell.Row = 1 Then Exit Sub
    Rows("1:" & ActiveCell.Row - 1).Delete
End Sub

 

[Smitty]

Welcome to the Board!

Maybe something like this:

Range(Cells(Selection.Row, "A"), Cells(Selection.Row, "A").End(xlUp)).EntireRow.Delete

HTH,