Auto Hiding rows based on range/data present or not present.

Here is the code for for any willing to have a look at it: The highlighted section is where the range is needed.

Sub HIDEROWS()
     Dim i As Long
     
     For i = 4 To 8
         If Range("A3") = "" Then
             Range("A1:T8").Select
             Selection.EntireRow.Hidden = True
             Exit For
         Else
             If Range("A" & i) = "" Then
                 Rows(i).Select
                 Selection.EntireRow.Hidden = True
             End If
         End If
     Next
 End Sub
 
 Sub UNHIDEROWS()
     Dim i As Long
     
     For i = 8 To 1 Step -1
         Rows(i).Select
         Selection.EntireRow.Hidden = False
     Next
End Sub
End Sub