Combine recursive listing with excluded code

[Paul_Hossler]

Added new Sub to remove duplicate and some cleanup

It looks at just Parent values for the lines that were just added (another run) and if the Parent is in the previous data, marks and deletes the just added row

'look at newly added lines (not in rPrev) and if PARENT FOLDER is in rPrev delete from newly added
Private Sub RemoveDups()
    Dim rowNew As Long
    
    For rowNew = wsOut.Cells(1, 1).CurrentRegion.Rows.Count To rPrev.Rows.Count + 1 Step -1
        If Application.WorksheetFunction.CountIf(rPrev.Columns(colParent), wsOut.Cells(rowNew, colParent).Value) > 0 Then
            wsOut.Cells(rowNew, colParent).Value = True
        End If
    Next rowNew
    
    On Error Resume Next
    wsOut.Columns(colParent).SpecialCells(xlCellTypeConstants, xlLogical).EntireRow.Delete
    On Error GoTo 0


End Sub