Add a togglebutton to your sheet, and use the code in the Click event

Private Sub ToggleButton1_Click()
     Dim lrow As Long
     Dim r As Range
     
     lrow = Cells(Rows.Count, 1).End(xlUp).Row
     Set r = Range("A3:A" & lrow)
     
     Application.ScreenUpdating = False
     
     For Each cell In r
          If cell.Value = "" Then
               cell.EntireRow.Hidden = Sheet1.ToggleButton1.Value
          End If
     Next cell
     
     Application.ScreenUpdating = True

End Sub