エクセル VBAでふりがなを別のセルから取得する

エクセル（Excel）でA列に漢字で氏名が入っており、B列に入っているふりがなを、ふりがなを表示したときにA列に氏名とふりがなを表示させる。

 Sub ふりがなの取得()
   Dim gyou As Integer
   For gyou = 1 To 200
   Range("A" & gyou).Select
   Range("A" & gyou).SetPhonetic
   Range("A" & gyou).Phonetic.Visible = True
   ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B" & gyou)
   Next gyou
   Range("A1").Select
End Sub