Excelに取り込んだCSVのデータ内の文字列を変換したい

Question

CSVファイルをエクセルシートに取り込む下記のコード内に
指定列内の文字列を変換するコードを入れたいのですが、どこに入れたらいいでしょうか。

【下記のコードを入れたいです】
　With Columns("O")　'O列を指定’
        .Replace what:="A", replacement:="AA"　’Aという文字列をAAに変換’
        .Replace what:="B", replacement:="BB"　’Bという文字列をBBに変換’
        .Replace what:="C", replacement:="CC"　’Cという文字列をCCに変換’
    End With

私、VBA初心者です。ご教示頂けますと幸いです。
間違っている点があったら教えていただきたいです。
コードはネット上から拝借しており、理解が追い付いてない部分があるかもしれません。ご了承くださいませ。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub CSVファイルを読み込む()

Dim A_Sheet  'Excelファイルのシート名を入れ込む変数'
    Dim Csv_Import_File  'Excelファイルに取り込むCSVファイルの名前を入れ込む変数'
    
    A_Sheet = ActiveSheet.Name  '現在アクティブなシート名を変数 A_Sheet に入れ込む'
    
    Csv_Import_File = Application.GetOpenFilename("CSVファイル,*.csv")  'CSVファイルを選択する'
    If Csv_Import_File = "False" Then Exit Sub  'キャンセルなら終了'
    
    ThisWorkbook.Sheets("〇〇データ").Range("A1:ZZ100000").ClearContents  '「○○データ」シートのセル「A1～ZZ100000」をクリアする'
    
    With Workbooks.Open(Csv_Import_File)
        .Sheets(1).Cells.Copy ThisWorkbook.Sheets("〇〇データ").Range("A1")  '全てのデータをこのブックの「○○データ」シートにコピー'
        .Close  'CSVファイルを閉じる'
    End With
        
    Worksheets(A_Sheet).Activate    'A_Sheet という名前のシートをアクティブにする'

End Sub

Accepted Answer

```ここに言語を入力
Sub CSVファイルを読み込む()

Dim Csv_Import_File  'Excelファイルに取り込むCSVファイルの名前を入れ込む変数'
    Csv_Import_File = Application.GetOpenFilename("CSVファイル,*.csv")  'CSVファイルを選択する'
    If Csv_Import_File = "False" Then Exit Sub  'キャンセルなら終了'
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("〇〇データ")
    ws.Range("A1:ZZ100000").ClearContents  '「○○データ」シートのセル「A1～ZZ100000」をクリアする'
    
    With Workbooks.Open(Csv_Import_File)
        .Sheets(1).Cells.Copy ws.Range("A1")  '全てのデータをこのブックの「○○データ」シートにコピー'
        .Close  'CSVファイルを閉じる'
    End With
        
    With ws.Columns("O")  'O列を指定’
        .Replace what:="A", replacement:="AA"  'Aという文字列をAAに変換’
        .Replace what:="B", replacement:="BB"  'Bという文字列をBBに変換’
        .Replace what:="C", replacement:="CC"  'Cという文字列をCCに変換’
    End With

End Sub

```