Private Sub Worksheet_Activate()
Dim cel As Range
Dim DerCol As Byte
With ActiveSheet
DerCol = .Cells(8, .Columns.Count).End(xlToLeft).Column
For Each cel In .Range(.Cells(8, 1), .Cells(8, DerCol))
If cel <> "" Then
.ComboBox1.AddItem cel
End If
Next cel
End With
End Sub