Formulario para mostrás algunas columnas pregunta para Dante Amor

Cambia la macro del botón por esta:

Private Sub botonMOSTRAR_Click()
'Por.Dante Amor
    Set h1 = Sheets("CLIENTES")
    Set h2 = Sheets("Hoja2")
    h2.Cells.Clear
    Application.ScreenUpdating = False
    h1.[W2] = ComboBoxNOMBRE
    Filtrado
    h1.Range("Y:Y,Z:Z,AA:AA,AE:AE,AF:AF,AH:AH").Copy h2.Range("A1")
    c = h2.Cells(1, Columns.Count).End(xlToLeft).Column
    letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
    ListBox1.ColumnCount = c
    ListBox1.RowSource = h2.Name & "!A2:" & letra & h2.Range("A" & Rows.Count).End(xlUp).Row
End Sub

Cambia las columnas "Y:Y,Z:Z,AA:AA,AE:AE,AF:AF,AH:AH", por las columnas que quieras mostrar, recuerda que después del filtro avanzado la información se pasa  a la hoja clientes empezando en la columna Y

Saludos. Dante Amor

Recuerda valorar la respuesta

Hola Dante:

Estoy queriendo hacer esto que me indicas en otro formulario pero me manda error en la siguiente lines:

  ComboBoxNOMBRE.AddItem ActiveCell

Deje el formulario como me lo mandaste solamente le cambie algunos criterios como son:

Range("I2").Select

Private Sub botonMOSTRAR2_Click()

'Mod.Por.Dante Amor
    Application.ScreenUpdating = False
    Sheets("CLIENTES").[W2] = ComboBoxNOMBRE
    Filtrado
    ListBox1.RowSource = "CLIENTES!Y2:AR" & Sheets("CLIENTES").Range("Y" & Rows.Count).End(xlUp).Row

End Sub

Private Sub ComboBoxNOMBRE_Enter()
    Application.ScreenUpdating = False
    Sheets("CLIENTES").Activate
    Range("I2").Select
    Do While ActiveCell <> ""
        ComboBoxNOMBRE.AddItem ActiveCell
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub