Выделенный диапазон Выше ячейки:
Sub SelectColumnData()
If ActiveCell.Row = 1 Then Exit Sub
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.Offset(-1,0).Activate
If ActiveCell.Row = 1 Then Exit Sub
Do While Not ActiveCell.Offset(-1, 0) = ""
Union(Selection, ActiveCell.Offset(-1, 0)).Select
If ActiveCell.Row = 1 Then Exit Do
Loop
End Sub

Проверка на дубликат:
Set r = Range("myRange") 'myRange - Ващ диапазон ячеек
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n