Sub test()
 x = ActiveCell.Column
 i = ActiveCell.Row
 Do Until Cells(i, x) = ""
 If Cells(i, x) = Cells(i + 1, x) Then
 i = i + 1
 Else
 Cells(i + 1, x).Select
 Exit Sub
 End If
 Loop
End Sub

これで､ｸｲｯｸｱｸｾｽﾂｰﾙﾊﾞｰにでもﾎﾞﾀﾝ作れば1ｸﾘｯｸで進んでいきます｡