Private Sub ComboBox1_Change()
Me.ListBox1.ListIndex = Me.ComboBox1.ListIndex
Dim mySearchRng As Range
Dim myFindRng As Range
Dim myValToFind As Variant
With Worksheets("PROFILING")
myValToFind = ComboBox1.Value
Set mySearchRng = .Columns("D")
End With
ListBox1.AddItem
With ListBox1
.List(.ListCount - 4, 0) = myFindRng.Value
.List(.ListCount - 6, 1) = myFindRng.Offset(0, 2).Value
.List(.ListCount - 8, 2) = myFindRng.Offset(0, 3).Value
.List(.ListCount - 10, 3) = myFindRng.Offset(0, 4).Value
.List(.ListCount - 12, 4) = myFindRng.Offset(0, 5).Value
End With
End Sub