Libro con userform para buscar datos y elimina

Te anexo el código para buscar por proveedor y remito

'
Private Sub CommandButton1_Click()
'
'   Por Dante Amor
'
    If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then
        MsgBox "Selecciona un Empresa", vbExclamation, "INGRESAR"
        ComboBox1.SetFocus
        Exit Sub
    End If
    If TextBox1.Value <> "" Then
        If Not IsDate(TextBox1.Value) Then
            MsgBox "Captura una fecha valida", vbExclamation, "INGRESAR"
            TextBox1.SetFocus
            Exit Sub
        End If
    End If
'    If ComboBox2.Value = "" Or ComboBox2.ListIndex = -1 Then
'        MsgBox "Selecciona un Código", vbExclamation, "INGRESAR"
'        ComboBox2.SetFocus
'        Exit Sub
'    End If
'    If TextBox4.Value = "" Or Not IsNumeric(TextBox4.Value) Then
'        MsgBox "Captura una Cantidad valida", vbExclamation, "INGRESAR"
'        TextBox4.SetFocus
'        Exit Sub
'    End If
    '
    Set h1 = Sheets(ComboBox1.Value)
    h3.Range("AB1:AF3").ClearContents
    h3.Range("AB1") = h1.Range("A2") 'fecha
    h3.Range("AC1") = h1.Range("A2") 'fecha
    h3.Range("AD1") = h1.Range("B2") 'cod
    h3.Range("AE1") = h1.Range("D2") 'prove
    h3.Range("AF1") = h1.Range("E2") 'remito
    'h3.Range("E1") = h1.Range("C2")
    '
    If ComboBox2.ListIndex > -1 Then
        If IsNumeric(ComboBox2.Value) Then codigo = Val(ComboBox2.Value) Else codigo = ComboBox2.Value
        h3.Range("AD2").Value = codigo
    End If
    If TextBox1.Value <> "" Then
        h3.Range("AB3") = CDate(TextBox1)
        h3.Range("AB2") = "="">=""&R[1]C"
        If TextBox2.Value = "" Then
            h3.Range("AC3") = CDate(TextBox1)
            h3.Range("AC2") = "=""<=""&R[1]C"
        End If
    End If
    If TextBox2.Value <> "" Then
        If IsDate(TextBox2) Then
            If CDate(TextBox2) >= CDate(TextBox1) Then
                h3.Range("AC3") = CDate(TextBox2)
                h3.Range("AC2") = "=""<=""&R[1]C"
            Else
                MsgBox "Captura una fecha hasta valida"
                TextBox2.SetFocus
                Exit Sub
            End If
        Else
            MsgBox "Captura una fecha hasta valida"
            TextBox2.SetFocus
            Exit Sub
        End If
    End If
    '
    If TextBox3 <> "" Then h3.Range("AE2").Value = TextBox3
    If IsNumeric(TextBox4) Then remito = Val(TextBox4) Else remito = TextBox4
    If TextBox4 <> "" Then h3.Range("AF2").Value = remito
    '
    Application.ScreenUpdating = False
    u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
    '
    h1.Range("A2:H" & u).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=h3.Range("AB1:AF2"), CopyToRange:=h3.Range("B1:I1"), Unique:=False
    h3.Columns("B:I").WrapText = False
    h3.Columns("B:I").EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.