VBAでよろしければこんな感じでしょうか

選択してるｾﾙから異なる要素になるまで1行ずつﾁｪｯｸしていってます｡

異なる要素に当たればそのｾﾙを選択して終わります｡

Sub a()
 x = Selection.Cells.Row
 Do Until Cells(x, "A") = ""
 If Cells(x, "A") <> Cells(x + 1, "A") Then
 Cells(x + 1, "A").Activate
 Exit Sub
 End If
 x = x + 1
 Loop
End Sub