Option Explicit
' このマクロの定数(状況により変更する)
Const g_cnsCOL As String = "A" ' 漢字住所の列
Const g_cnsMIDASHI As Long = 1 ' 見出し行数
' 漢字住所の列でAlt+Shift+↑を連続して入力していくマクロ
Sub TEST()
Dim lngRow As Long ' 行INDEX
' 先頭行から最終行まで繰り返す
For lngRow = g_cnsMIDASHI + 1 To Range(g_cnsCOL & Rows.Count).End(xlUp).Row
' 現在行を選択
Range(g_cnsCOL & CStr(lngRow)).Select
' 現在行に漢字住所があるか
If ActiveCell.Value <> "" Then
' セルに値があればAlt+Shift+↑とEnterを入力
SendKeys ("+%{UP}")
SendKeys ("{ENTER}")
End If
Next
' 先頭行を選択
Range(g_cnsCOL & CStr(g_cnsMIDASHI + 1)).Select
End Sub
一応、セルが空(住所なし)だと1行余分に進んでしまうので判断を入れていますが、このサンプルのように全て埋まっている場合は判断記述はなくても良いです。
住所列と見出し行数を一番先頭のモジュールレベルで定数宣言しているので、これを変更するだけでも利用できるかも知れません。