Select row of current selected cell (Excel 2007)

[LDale]

Goal is to delete all rows from row 2 to the row of current selected cell. For example if I have select a cell in row 230 selected I want to delete rows("2:230"). I tried ActiveSheet.Rows("2:" & row_number).Delete. But this give me a Run-time error '13': Type mismatch. Any help would be appreciated. Thank you!

 

[BobUmlas]

Sub Deleter()
Range("2:" & Selection.Row).EntireRow.Delete
End Sub

 

[LDale]

Thank you!

 

[Rick Rothstein]

Thank you!

Just so you know, you can also do it this way as well...

Sub Deleter2()
  Rows(2).Resize(Selection.Row - 1).Delete
End Sub