excel - ファイル、セル A1 の値、および下にある値を一覧表示する Excel マクロ

Question

以下のコードを取得しましたが、セル A1 に最初の値を入れる代わりに、常に A3 から開始します。これを修正する方法は？

Sub list_files()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object

    Range("A1", Columns("A").End(xlDown)).Clear
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\files\")
    ActiveSheet.Cells(1, 1).Select
    For Each objFile In objFolder.Files
    ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
End Sub