他からコピー等で振り仮名が表示されない場合は、先にこちらの方法で表示させます。
　ほかからコピーした漢字のフリガナを表示するには？

Sub miko_test2()
　Dim c As Range
　Dim i As Integer, j As Integer, N() As Integer
　Dim S As Integer, E As Integer, A As String
　'選択したセル全てを処理
　For Each c In Selection
　　c.Merge
　　'最後に改行コードを追加
　　If Right(c.Value, 1) <> Chr(10) Then c.Value = c.Value & Chr(10)
　　j = 0
　　ReDim Preserve N(j)
　　N(j) = 1
　　'改行コード位置から、２行目以降のスタート位置を配列変数に格納
　　For i = 1 To Len(c.Value) - 1
　　　If Mid(c.Value, i, 1) = Chr(10) Then
　　　　j = j + 1
　　　　ReDim Preserve N(j)
　　　　N(j) = i
　　　End If
　　Next
　　'最終行最終文字の位置を格納
　　j = j + 1
　　ReDim Preserve N(j)
　　N(j) = Len(c.Value)
　　'最後の行から最初の行までの、最初の文字位置(S)・最後の文字位置(E)を格納
　　For i = j To 1 Step -1
　　　If N(i - 1) = 1 Then
　　　　S = N(i - 1)
　　　Else
　　　　S = N(i - 1) + 1
　　　End If
　　　E = N(i)
　　　'最後の行から最初の行に入れ替えた文字列を格納
　　　A = A & Mid(c.Value, S, E - S) & Chr(10)
　　Next
　　'行を入れ替えた値から、最後の余分な改行コードを消して入力
　　c.Value = Left(A, Len(A) - 1)
　　A = ""
　Next
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。