Veja se com essa alteração dá certo, @miguel-70:

Sub carregarlocall()
  Dim colDados As Range
  UserForm1.ListBox1.Clear
  With Plan1
    For Each colDados In .Range("A:A,D:D,G:G,J:J,M:M,P:P,S:S").Columns
      For a = 5 To .Cells(Rows.Count, colDados.Column).End(xlUp).Row
        If UCase(.Cells(a, colDados.Column).Value) Like "*" & UCase(UserForm1.TextBox1) & "*" Then
          UserForm1.ListBox1.AddItem .Cells(a, colDados.Column).Value
        End If
      Next a
    Next colDados
  End With
End Sub
 

@edsonbr, desculpe pela demora.

Isso mesmo obrigado dobrado Edson.

Resolvido