Add/Hide lines in invoice or qoute

Good day,
Maybe someone can help me? I have made a simple invoice/quote system in excell, with a max of 15 items. Now I want to know if it is possible to hide the lines not used in the excell sheet?

I have attached the excell file for an example

Thank you very much

Jakes

Maybe like this

Sub Rectangle7_Click()
    Dim rCl As Range
    Select Case MsgBox("Do you want to hide unused rows?", vbYesNo Or vbExclamation Or vbDefaultButton1, "Empty Rows")

    Case vbYes
        For Each rCl In Range("e22:e34")
            On Error Resume Next
            rCl.EntireRow.Hidden = Not rCl.Value
            On Error GoTo 0
        Next rCl
        End Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

Restore the lines after Printing

Sub Rectangle7_Click()
    Dim bOK As Boolean
    Dim rCl As Range
    With Application
        .ScreenUpdating = False

        Select Case MsgBox("Do you want to hide unused rows?", vbYesNo Or _
                                                               vbExclamation Or vbDefaultButton1, "Empty Rows")
        Case vbYes
            For Each rCl In Range("e22:e34")
                On Error Resume Next
                rCl.EntireRow.Hidden = Not rCl.Value
                On Error GoTo 0
            Next rCl
            bOK = True
        End Select
        Application.Dialogs(xlDialogPrint).Show
        If bOK Then
            GoTo restore_lines
        Else: GoTo the_end
        End If
restore_lines:
        For Each rCl In Range("e22:e34")
            On Error Resume Next
            rCl.EntireRow.Hidden = rCl.Value
            On Error GoTo 0
        Next rCl
the_end:
        .ScreenUpdating = True
    End With
End Sub