---

Sub DoSearch()
    With Worksheets(1)
        .Range("A16:G100").ClearContents
        .Range("A1:G12").AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=.Range("L31:P32"), _
            CopyToRange:=.Range("A16:G16"), _
            Unique:=False
    End With
End Sub

Sub ClearSearch()
    With Worksheets(1)
        .Range("M19").Value = 5
        .Range("N19").Value = 3
        .Range("O19").Value = 3
        .Range("P19").Value = 5
        .Range("L25:L28").Value = True
        .Range("A17:G100").ClearContents
    End With
End Sub

Sub MakeInvoice()
    Dim n As Long
    With Worksheets(5)
        n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        Worksheets(1).Range("A13:F13").Copy
        .Cells(n, 1).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        .Cells(n, 1).NumberFormat = "DD.MM.YYYY hh:mm"
        Worksheets(2).Range("C2").Value = n - 1
    End With
    Worksheets(2).Activate
End Sub

Sub PrintInvoice()
    With Worksheets(2)
        .PageSetup.PrintArea = "$B$2:$E$11"
        .PrintOut
    End With
End Sub