Private Sub UserForm_Initialize()
Dim TabTemp As Variant
Dim i As Integer
TabTemp = Range("F1:AB2").Value
ListBox1.ColumnCount = UBound(TabTemp)
ListBox1.Column = TabTemp
For i = ListBox1.ListCount To 1 Step -1
If ListBox1.List(i - 1, 0) = "" And ListBox1.List(i - 1, 1) = "" Then _
ListBox1.RemoveItem (i - 1)
Next i
End Sub