Help with VBA hiding all rows except next one to use

Howdy. Looking to have a button to push to hide all unused rows in a certain range except for the next one I need for data entry.

Range BI has names. I will generally skip some rows further down the list. So I basically need something to hide the rows NOT in use, but leaving the next one below last entry (multiple entries).

Here's what I have that works like a charm, but hides all except rows filled in. Thanks!

Sub HIDEUNUSEDROWS()
Dim LR As Long
LR = Range("BI" & Rows.Count).End(xlUp).Row
Range("BI12:BI1520").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub