Combine recursive listing with excluded code

[Paul_Hossler]

Code fragment that may help

Option Explicit


Dim rowNext As Long
Dim ws1 As Worksheet, ws2 As Worksheet
    


Sub LoadArray()
    Dim aryFolders As Variant
    Dim aryParameters As Variant
    Dim i As Long
    
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    
    'needed to make a 1 dim array
    aryFolders = Application.WorksheetFunction.Transpose(ws1.Cells(1, 1).CurrentRegion)


    'next blank row
    rowNext = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    For i = LBound(aryFolders) + 1 To UBound(aryFolders)
        Call ListInfo(aryFolders(i), i)
    Next i
    
End Sub




Sub ListInfo(S As Variant, N As Long)
'Sub ListInfo(oFolderFile As Object, sType As String)
'    With oFolderFile
'        wsOut.Cells(rowOut, colPath).Value = RemovePrefix(.Path)
'        wsOut.Cells(rowOut, colParent).Value = RemovePrefix(oFSO.GetParentFolderName(.Path))  'oFSO.GetParentFolderName(.Path) or .ParentFolder.Path
'        wsOut.Cells(rowOut, colName).Value = .Name
'         wsOut.Cells(rowOut, colFileFolder).Value = sType
'        wsOut.Cells(rowOut, colCreated).Value = .DateCreated
'        wsOut.Cells(rowOut, colModified).Value = .DateLastModified
'        wsOut.Cells(rowOut, colSize).Value = .Size
'        wsOut.Cells(rowOut, colType).Value = .Type
'    End With


    With ws2.Rows(rowNext)
        .Cells(1).Value = S
        .Cells(2).Value = N
        .Cells(3).Value = 2 * N
        .Cells(4).Value = 4 * N
        .Cells(5).Value = N ^ 2
        .Cells(6).Value = N / 2
    End With
    
    rowNext = rowNext + 1
End Sub