Hi firefytr,

Hopefully I have understood.

Create a userform with 2 listboxes and a commandbutton.
The Initialize event populates both listboxes with the contents of column A.
The commandbutton button goes through listbox2 backwards. When it finds a selected item it then tries to locate it in column A, if found the cell is deleted.
It then goes through listbox1 forward this time as we can only delete 1 item. And delete is matched. Finally we delete the selected item from listbox2.
Continue through all selections in listbox2.

Private Sub CommandButton1_Click()

    Dim lngIndex As Long
    Dim lngIndex2 As Long
    Dim rngFind As Range
    
    For lngIndex = ListBox2.ListCount - 1 To 0 Step -1
        If ListBox2.Selected(lngIndex) Then
            Set rngFind = Worksheets("Sheet2").Range("A:A").Find(ListBox2.List(lngIndex))
            If Not rngFind Is Nothing Then rngFind.Delete xlShiftUp
            For lngIndex2 = 0 To ListBox1.ListCount - 1
                If ListBox1.List(lngIndex2) = ListBox1.List(lngIndex) Then
                    ListBox1.RemoveItem lngIndex2
                    Exit For
                End If
            Next
            ListBox2.RemoveItem lngIndex
        End If
    Next
    
End Sub

Private Sub UserForm_Initialize()

    Dim rngCell As Range
    
    For Each rngCell In Worksheets("Sheet2").Range("A:A")
        If rngCell = "" Then Exit For
        ListBox1.AddItem rngCell.Value
        ListBox2.AddItem rngCell.Value
    Next
End Sub