Loop a macro through the multiple files

I don't really understand that code, but it might be enough to add a few dots

.Range("A2").Select
ActiveWorkbook.Names.Add Name:="ID", RefersToR1C1:="=GET.DOCUMENT(88)"
            ActiveWorkbook.Names("ID").Comment = ""
            ActiveCell.FormulaR1C1 = "=SUBSTITUTE(ID, "".csv"", """")"
            .Range("A2").Select
             
            Dim Lr     As Long
            Lr = .Cells.Find("*", , , , 1, 2).Row
            If Selection(1).Row < Lr Then
               Selection.AutoFill Destination:=Selection.Resize(Lr - Selection.Row + 1)
            End If