Hi, I am trying to use this code, but I am not getting successful when I need to get the value from the first column and get the value of the second column in the same row.

Private Sub Comb_Datum_Change()
Dim sn, sn1 As Variant
Dim Rw As Variant
Dim DatumValue As Date
Dim rnData As Range
Dim Rt As String
Dim sn2 As Variant

DatumValue = Me.Comb_Datum.Value
sn = Sheets(2).Range("B2:AK65536") 'Combibox Projekt Filter
sn1 = Sheets(2).Range("AK2:AK65536") 'Combibox Projekt Filter
sn2 = Sheets(2).Range("B:B")
With CreateObject("System.Collections.ArrayList") 'Combibox Datum Filter
For Each Rw In sn2
If Rw = "" Then GoTo a:
'here I need to now the number of row or value in AK in the same row as Rw is now
If Rw <> DatumValue And Not .contains(Rw) Then .Add Rw 'here should add the value of row AK from Rw
Next Rw
a:
.Sort
Me.CombiProjekt.List = Application.Transpose(.toarray())
End With

End Sub

If anyone have a better solution to write the code is welcome,

Thanks for your time
João Santos