deleting last row in range

[ysherriff]

I have the following vba code that searches for the last row with data and then deletes up. But i want to modify it where it only selects the range with the last data instead dand then select the range and move up. The range for the selection from column b to column i.

Range("start_revach_view").Select
Selection.End(xlDown).Select
rownum = Selection.Row
Range("b" & rownum + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete

I tried to modify it to below but it selects everything and deletes.

Range("start_revach_view").Select
Selection.End(xlDown).Select
rownum = Selection.Row
Range("b5:i5" & rownum + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete

Can someone help please?

Thank you.

 

[ysherriff]

I have uploaded the file with the ranges need to be modified in yellow.

Thanks