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

Comments

[meg_]

> コードはネット上から拝借しており
引用元を明記しましょう。

[jinoji]

最初にA_Sheet変数にシート名を格納した現在アクティブなシートと、csvファイルの内容をコピーする”○○データ”シートとは別のシートですか？