Excel - Generar una Lista a Partir de una Tabla

Private Sub PList_DropButtonClick()

    Dim MyList() As String

    Dim MyAreas As Integer

    Dim MyRows As Integer

    Dim IndI As Integer, IndJ As Integer, IndK As Integer, IndL As Integer

    Set MyTable = Sheets("Data").ListObjects("TablaDatos")

    Set MyColumns = MyTable.ListColumns

    Set MyRange = MyColumns.Item("Artículo").Range

    MyRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

    Set MyData = MyRange.Offset(1).Resize(MyRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

    MyAreas = MyData.Areas.Count

    MyRows = MyData.Count

    ReDim MyList(1 To MyRows)

    IndL = 1

    For IndI = 1 To MyAreas

        IndJ = MyData.Areas(IndI).Count

        For IndK = 1 To IndJ

            MyList(IndL + IndK - 1) = MyData.Areas(IndI).Cells(IndK).Value

        Next IndK

        IndL = IndL + IndJ

    Next IndI

    PList.List = MyList

    Sheets("Data").ShowAllData

End Sub