Want to add one more critieria to filter table suing textbox

hi,
i am using below code to filter my table's header

Private Sub TextBox6_Change()
Application.ScreenUpdating = False

  With Worksheets("SHEET2")
    Application.EnableEvents = False
    .Range("F1").Value = Me.TextBox6.Value
    Application.EnableEvents = True
    With .Range("Table1")
      If TextBox6.Value <> "" Then
        .AutoFilter Field:=6, Criteria1:="=*" & Me.TextBox6.Text & "*"
      Else
      .AutoFilter Field:=6
      
        '.AutoFilter
      End If
    End With
  End With
  Label6_Click
  Application.ScreenUpdating = True
End Sub

i need here help
if column j have data then don't filter that rows (exception)

thanx