@Meiby ...
Misalkan saja, nama foldernya diisi pada sel A2, dan daftar filenya akan ditampilkan pada kolom B mulai dari baris ke-2. Pertama, coba buat dahulu prosedur berikut:
Sub TesSaja()
Call ListFilesInFolder(Trim$(Sheet1.Range("B2")), True)
End Sub
Kemudian pada prosedur ListFilesInFolder, ubah baris perintah:
rowIndex = Application.ActiveSheet.Range("D25000").End(xlUp).Row + 1
menjadi:
rowIndex = Application.ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 1
dan pada prosedur yang sama, pada baris perintah:
Application.ActiveSheet.Cells(rowIndex, 4).Formula = xFile.Name
menjadi:
Application.ActiveSheet.Cells(rowIndex, "B").Formula = xFile.Name
Kemudian assign macro pada tombol ke prosedur TesSaja tadi. Coba klik tombol dan lihat hasilnya.
Demikian.