Private Sub UserForm_Activate()
Dim i As Integer, lastRow%, j%

Me.ListBox1.ColumnCount = 2
For i = 5 To 100
        If Cells(i, 3).Value = "" Then
            lastRow = i
            Exit For
        End If
    Next i
    Me.ListBox1.RowSource = ""
    For i = 5 To lastRow
        j = j + 1
        Me.ListBox1.AddItem Cells(i, 3).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, 4).Value
        
    Next i
    Me.ListBox1.Height = j * 15
    Me.Height = Me.ListBox1.Height + 5
End Sub