Combine recursive listing with excluded code

[anmac1789]

I want to extend my code to have a parent folder list in column J and an exclude list in column K. The below code is in module 2. I found that instead of writing each parent folder in "sPathTop", I could've listed the parent folders in column J (or any other column) and then ran the main code. I just don't know how to run the main code for each parent folder in column J while taking into account the exclude list in column K. In other words, how can I include the below code to run with my main code? Thanks

Sub examplearray()
    Dim testarray() As String, size As Integer, i As Integer, x As Variant
    size = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
    ReDim testarray(size)
    'Range("L2") = LBound(testarray)
    'Range("L3") = UBound(testarray)
    For i = 1 To size
        testarray(i) = Range("A" & i).Value
    Next i
End Sub