List box Double Click Copy and remove item

Dears,

In the List box 1 selected item to be copied to range A1 and removed from the list box 1 list item and then next selected item copied to range A2 . next item A3... and then removed from the list box list item any idea

try it

Option Explicit
Dim i&

Sub FillListBox1()
    Me.ListBox1.List = Me.Range("A1:A10").Value
    i = 0
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.ListBox1
        If .ListIndex <> -1 Then
            i = i + 1: Cells(i, 1).Value = .Value
            .RemoveItem .ListIndex
        End If
    End With
End Sub