Set Range is not optimum

[hip2b2]

Sub make_room()

Range("b9:b100").Select
Selection.SpecialCells(xlBlanks).EntireRow.RowHeight = 10
Application.GoTo ActiveSheet.Range("A8"), True
Range("A8").Select
     
End Sub

The macro (simple as it is) works though in actuality Row 100 is an over-grab as I am never sure of what is the row. I've tried many ways to get the last filled cell in Col B without success. If there is a better way I'd be happy to use that.

Thanks

hip

 

[lrobbo314]

Sub make_room()

Range("B9:B" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.RowHeight = 10
Range("A8").Select
     
End Sub

 

[hip2b2]

Perfect!!!

again, many thanks

hip