"TEXT;" & FileName(l), Destination:=.Sheets(l).Range("$A$1"))
to something like
"TEXT;" & FileName(l), Destination:=.Sheets(l).Range("A2", Cells.SpecialCells(xlCellTypeLastCell))