Tenho uma macro que sobe os dados de uma table para uma list box, onde posso editar e atualizar como se fosse um programa. Não estou conseguindo subir apenas os falores filtrados.

Código VBA Usado

Sub Atualizar_ListBox()
bloqueado = True
Dim tabela As ListObject
Set tabela = Planilha1.ListObjects(1)

UserForm1.ListBox1.RowSource = tabela.DataBodyRange.Address(, , , True)
bloqueado = False
End Sub