Automatisch filteren voor opslaan

Sub Verzenden_Insituform()


If MsgBox("U gaat nu het tabblad als nieuw bestand opslaan en verzenden!" & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Let op!") = vbCancel Then Exit Sub



  ar = ThisWorkbook.Sheets("Insituform").Range("A1:ZZ500")

  Dim c00 As String, c01 As String
  c00 = ThisWorkbook.Path & "\" & Replace([AH1], "\", "") & "\"
  c01 = [AJ1] & (" ") & Format(Date, "dd-mmmm-yyyy") & ("  ") & Format(Time, "hh-mm")
  c02 = ["Insituform"] & (" ")
  With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(c00) Then .CreateFolder c00
  End With
  Sheets("Insituform").Copy
  With ActiveWorkbook
  .Sheets(1).Range("A1:ZZ500").Value = ar
    .SaveAs c00 & c02 & c01 & ".xlsx", 51
  End With

'Verzenden

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = [AJ2]
        .CC = [AJ3] & ";" & [AJ4]
        .BCC = [AJ5]
        .Subject = "Bestelling Saertex kousen voor " & [AK1] & " werknummer: " & [AJ1]
        .Body = "Beste " & [AJ2] & "," & vbNewLine & vbNewLine & "Hierbij de conceptbestelling met betrekking tot het werk te " & Range("AL1").Value & "." & vbNewLine & "Projectnummer : " & [AJ1] & vbNewLine & "Opdrachtgever  : " & [AK1] & vbNewLine & "Opmerking         : " & [AI6] & vbNewLine & vbNewLine & "Voor vragen graag contact opnemen met de betreffende uitvoerder of projectleider!" & vbNewLine & vbNewLine & vbNewLine & "Met vriendelijke groet, " & vbNewLine & vbNewLine & [N4]
        .Attachments.Add ActiveWorkbook.FullName
        
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    
    
    With ThisWorkbook
          .Sheets(Array("Insituform")).Visible = False
          
     
MsgBox "Het bestelblad van Insituform is nu verzonden en verborgen." & vbNewLine & "Het blad van Insituform die nu ziet is het opgeslagen en verzonden blad!"
End With

End Sub