Dim typemachine As Collection
Dim c As Range
Dim i As Byte
Set typemachine = New Collection
On Error Resume Next
For Each c In Range('w2:w' & Range('w500').End(xlUp).Row)
typemachine.Add c.Text, c.Text
Next c
For i = 1 To typemachine.Count
ComboBox2.AddItem typemachine(i)
Next i