Select a row and delete all the data below it

[Jak]

Hi

I need some VB help to do the following.

I need to select a row which will vary each time. After the row is selected I want to delete all the rows below the selected row.

For example if I select row 900, rows 901-65536 would be deleted.

Any help with some VB code to accomplish this would be great.

 

[texasalynn]

try this

Sub DeleteRemain()
Dim LR As Long, i As Long
Application.ScreenUpdating = False

LR = ActiveSheet.Cells(65536, 5).End(xlUp).Row
SR = ActiveCell.Row + 1
Rows(SR & ":" & LR).Delete
MsgBox "Done"
Application.ScreenUpdating = True
End Sub

 

[Jak]

Hi texasalynn

Thanks very much for the quick reply and excellent code. Works a treat, cheers.