こんにちは。またお世話になります。
現在、以下のマクロを作っております。
CSVファイルの処理が分からず、自分なりに作ってみましたが、上手く行かずです。
a列への転記部分でエラーが出ますが、何がおかしいのか分からず困ってます。
スクリプトを下記に載せますので、アドバイスお願いします

1　マクロ直下フォルダcsvoにある複数CSVファイルにa列を挿入
2　その後a２セルからa列セルの最下行までｃ2セルの値を貼り付け
3　a１セルにはOneと記入


Sub AddColumnAndCopyValue()

    'CSVファイルのパス
    Dim FilePath As String
    FilePath = ThisWorkbook.Path & "\csvo\"
    
    'CSVファイルをループで処理
    Dim filename As String
    filename = Dir(FilePath & "*.csv")
    While filename <> ""
        'CSVファイルを開く
        Workbooks.Open Filename:=FilePath & filename
        
        'A列にOneと記入
        Range("A1").Value = "One"
        
        'A列を挿入
        Range("A2").EntireColumn.Insert
        
        'B列の行数を取得
        Dim lastRow As Long
        lastRow = Cells(Rows.Count, "B").End(xlUp).Row
        
        'C2の値をA2からA列の最後の行にコピー
        Range("C2").Copy Range("A2:A" & lastRow)
        
        'CSVファイルを保存して閉じる
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        
        '次のCSVファイルを処理するためにループで取得
        filename = Dir
    Wend
    
End Sub