【Excel】でデータを「ヘボン式」ローマ字変換し「値」を確定するExcelVBA

Sub SEThiragana()
'
' ひらがな設定
'
''    Range("A1:A1").Select
''    Range(Selection, Selection.End(xlDown)).Select
    Selection.SetPhonetic
    Selection.Phonetics.CharacterType = xlHiragana
    Selection.Phonetics.Alignment = xlPhoneticAlignLeft
    Selection.Phonetics.Visible = False
End Sub

Sub SETkanahan()
'
' 半角ｶﾅ設定
'

''    Range("A1:A1").Select
''    Range(Selection, Selection.End(xlDown)).Select
    Selection.SetPhonetic
    Selection.Phonetics.CharacterType = xlKatakanaHalf
    Selection.Phonetics.Alignment = xlPhoneticAlignLeft
    Selection.Phonetics.Visible = False
End Sub

Sub TEST_KANA()
''  Ａ列のデータをＢ列：ローマ字　Ｃ列：ひらがな　Ｄ列：半角カナ
''  テストモジュール

Dim i As Integer
Dim wk_nm1 As String
    Sheets("Sheet1").Select
    Columns("B:D").Select               'B,C,D列を削除
    Selection.Delete Shift:=xlToLeft
    
    Range("A1:A11").Select
    Call SETkanahan
    
    i = 0
    Do Until CHRCVT(Cells(i + 1, 1)) = ""
        i = i + 1
        'ローマ字変換
        Cells(i, 2) = "=Hebon(A" & i & ",2)"
        If Not IsError(Cells(i, 2)) Then
            wk_nm1 = Cells(i, 2)
            Cells(i, 2) = wk_nm1
        End If
        'カナ半角変換
        Cells(i, 4) = "=asc(phonetic(A" & i & "))"
        If Not IsError(Cells(i, 4)) Then
            wk_nm1 = Cells(i, 4)
            Cells(i, 4) = wk_nm1
        End If
    Loop
    
    Range("A1:A11").Select
    Call SEThiragana
    
    i = 0
    Do Until CHRCVT(Cells(i + 1, 1)) = ""
        i = i + 1
        'ひらがな変換
        Cells(i, 3) = "=phonetic(A" & i & ")"
        If Not IsError(Cells(i, 3)) Then
            wk_nm1 = Cells(i, 3)
            Cells(i, 3) = wk_nm1
        End If
    Loop

    Range("A1").Select
End Sub