How to hide and unhide rows from a click in the cell.

Hi,
Welcome to the forum.

Try this............

Right click on Sheet Tab --> View Code --> Paste the code given below in the code window --> Save your workbook as Macro-Enabled Workbook.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lr As Long, lr1 As Long, i As Long
lr = Cells(Rows.Count, Target.Column).End(xlUp).Row
lr1 = Target.End(xlDown).Row
If lr1 <= lr Then
    For i = Target.Row + 1 To lr1 - 1
        If Target <> "" And Cells(i, Target.Column) = "" And Rows(i).Hidden = False Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
End If
Cancel = True
End Sub

I just tested the code given with many different combinations of numbers and columns, and it worked great.
Just make sure you're posting it in the Sheet's code, and not as a run-able macro.
After pasting the code save as a Excel Macro-Enabled Workbook
1.png2.png

If that takes care of your original question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.

Replace the existing code with the following one...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lr As Long, lr1 As Long, i As Long
lr = Cells(Rows.Count, Target.Column).End(xlUp).Row
lr1 = Target.End(xlDown).Row
If lr1 <= lr Then
    For i = Target.Row + 1 To lr1 - 1
        If Target <> "" And Cells(i, Target.Column) = "" And Rows(i).Hidden = False Then
            Target.Interior.ColorIndex = 3
            Rows(i).Hidden = True
        Else
            Target.Interior.ColorIndex = xlNone
            Rows(i).Hidden = False
        End If
    Next i
End If
Cancel = True
End Sub

You're welcome.

If that takes care of your original question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.