Transfer ActiveX objects and codes onto userform

I did look at the workbook, and tried figuring out what was happening.

Just seemed to get a whole bunch of errors, especially when trying to move items from the big listbox.

I did figure out how you can populate the listboxs on the userform.

Private Sub UserForm_Initialize()


Dim awf As WorksheetFunction: Set awf = WorksheetFunction

    If awf.CountA(Range("drInput")) <> 0 Then
        ListBox1.List = _
        ThisWorkbook.Names("drInput").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist2")) <> 0 Then
        ListBox2.List = _
        ThisWorkbook.Names("drlist2").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist3")) <> 0 Then
        ListBox3.List = _
        ThisWorkbook.Names("drlist3").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist4")) <> 0 Then
        ListBox4.List = _
        ThisWorkbook.Names("drlist4").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist5")) <> 0 Then
        ListBox5.List = _
        ThisWorkbook.Names("drlist5").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist6")) <> 0 Then
        ListBox6.List = _
        ThisWorkbook.Names("drlist6").RefersToRange.Value
    End If
    If awf.CountA(Range("drlist7")) <> 0 Then
        ListBox7.List = _
        ThisWorkbook.Names("drlist7").RefersToRange.Value
    End If

End Sub