スキルアップ・問題解決なら、モーグにおまかせ！

アクティブセルのふりがなテキストの文字列についての情報を表すPhoneticオブジェクトを返す、Phoneticプロパティを使います。

Sub Sample()
    ActiveCell.Offset(, 1).Value = ActiveCell.Phonetic.Text
End Sub

セルに名前等を入力します。そのセルを選択し、マクロを実行すると右隣のセルにふりがなが表示されます。