Guru do Excel e Power BI

Sub AleVBA_2322()
    Dim wb As Workbook, wbXLS As Workbook
    Dim sPath As String, sFilename As String
    Dim NbRows As Integer, rg As Range
    DisplayAlerts = False
    Set wb = ThisWorkbook
    Application.ScreenUpdating = False
    sPath = "C:\Users\AleVBA\"       'Caminho de arquivos XLS
    sFilename = Dir(sPath & "*.xls")
    On Error Resume Next
    Do While Len(sFilename) > 0
        If sFilename <> ThisWorkbook.FullName Then
            Set wbXLS = Workbooks.Open(sPath & sFilename)           'Abre arquivos
            NbRows = wbXLS.Sheets(1).Range("A60000").End(xlUp).Row  'Num de linhas (favor ajustar qtd lin para seu caso)
'Na guia de nome AleVBA abaixo, coluna A ficará os nomes e Coluna B qtd de linhas
            Set rg = wb.Worksheets("AleVBA").Range("A60000").End(xlUp).Offset(1, 0)
            rg = sFilename
            rg.Offset(0, 1) = NbRows
            wbXLS.Close False   'Fecha os arquivos
        End If
        sFilename = Dir
    Loop
    Application.ScreenUpdating = True
    DisplayAlerts = True
End Sub

Sub atualizaDados()
    Dim sPath As String
    Dim linha As Integer
    Dim coluna As Integer
    
    Dim wb As Workbook, wbXLS As Workbook
    
    Dim a As String
    Dim b As String
    Dim qtd As Integer
    
    varColuna = 1
    varLinha = 1
    varConteudo = 1
    
    'Define a linha e coluna que ira comecar
    linha = 3
    coluna = 2
    
    'Caminho da pasta dos arquivos
    sPath = "C:\Users\felipe.arruda\Desktop\Nova pasta\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set arquivo = FSO.GetFolder(sPath)
    
    'Varre cada linha da coluna (linha x coluna)
    While Cells(linha, coluna).Value <> Empty
            a = UCase("sgu_" & Cells(linha, coluna).Value & ".csv")
        For Each arq In arquivo.Files
            b = UCase(arq.Name)
        
            If a = b Then
                'Abre o arquivo
                Set wbook = Application.Workbooks.Open(sPath & arq.Name)
                
                'Faz a contagem de linhas no arquivo
                Do While varConteudo <> Empty
                    varLinha = varLinha + 1
                    varConteudo = Cells(varLinha, varColuna).Value
                Loop
                
                'Alimenta a planilha
                Sheets(1).ActiveCell.Offset("C", linha).Value = "a"
                'Fecha o arquivo
                
                wbook.Close
            End If
            
        Next arq
        linha = linha + 1
    Wend
        
End Sub

Set wb = ThisWorkbook

Set rg = wb.Worksheets("AleVBA").Range("A60000").End(xlUp).Offset(1, 0)

sPath = "C:\Users\AleVBA\"