Sub ki167()
Sheets("Sheet1").Select
'最終行
  Selection.SpecialCells(xlCellTypeLastCell).Select
      endr = ActiveCell.Row
'カタカナ
  Range(Cells(1, 1), Cells(endr, 1)).Select
  Selection.Phonetics.CharacterType = xlKatakana
'ふりがな入力
   Range(Cells(1, 2), Cells(endr, 2)).Formula = "=PHONETIC(a1)"
   Range("a1").Select
End Sub