Option Explicit
Dim arr

Private Sub UserForm_Initialize()
arr = Application.Transpose(Range("A1", Cells(Rows.Count, 1).End(xlUp)))
Me.ListBox1.RowSource = ""
Me.ListBox1.List = arr
End Sub

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim MyDataObject As DataObject
Dim Msg As String
Dim Effect As Integer
If Button = 1 Then
     Set MyDataObject = New DataObject
     MyDataObject.SetText ListBox1.Value
     Effect = MyDataObject.StartDrag(fmDropEffectMove)    'fmDropEffectCopy
     arr = Filter(arr, ListBox1.Value, False, vbTextCompare)
     Me.ListBox1.List = arr
     If Effect = 0 Then MsgBox (Msg)
End If
End Sub

Private Sub CommandButton1_Click()
If Me.ListBox1.ListIndex < 0 Then MsgBox "Не выбран месяц", 64: Exit Sub
Dim i&
For i = 1 To 4
     If Len(Me("Textbox" & i)) = 0 Then
         Me("Textbox" & i).Value = ListBox1.Value
         arr = Filter(arr, ListBox1.Value, False, vbTextCompare)
         Me.ListBox1.List = arr
         Exit For
     End If
Next
End Sub

Private mobjFromList As MSForms.ListBox
Private mlFrom As Long
     
Private Sub UserForm_Initialize()
      Dim L As Long
      For L = 0 To 50
          Me.ListBox1.AddItem "Item " & L
      Next
End Sub
     
Private Sub ListBox1_MouseMove(ByVal Button As Integer, _
      ByVal Shift As Integer, _
      ByVal X As Single, _
      ByVal Y As Single)
        
      Dim objData As DataObject
      Dim lEffect As Long
        
      Const lLEFTMOUSEBUTTON As Long = 1
        
      If Button = lLEFTMOUSEBUTTON Then
          Set objData = New DataObject
          Set mobjFromList = Me.ListBox1
          objData.SetText Me.ListBox1.Text
          mlFrom = Me.ListBox1.ListIndex
          lEffect = objData.StartDrag
      End If
End Sub
     
Private Sub ListBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
      ByVal Data As MSForms.DataObject, _
      ByVal X As Single, _
      ByVal Y As Single, _
      ByVal DragState As MSForms.fmDragState, _
      ByVal Effect As MSForms.ReturnEffect, _
      ByVal Shift As Integer)
        
      Cancel = True
      Effect = fmDropEffectMove
End Sub
     
Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
      ByVal Action As MSForms.fmAction, _
      ByVal Data As MSForms.DataObject, _
      ByVal X As Single, _
      ByVal Y As Single, _
      ByVal Effect As MSForms.ReturnEffect, _
      ByVal Shift As Integer)
     
      Dim lTo As Long
     
      With Me.ListBox1
          lTo = .TopIndex + Int(Y * 0.85 / .Font.Size)
          If lTo >= .ListCount Then lTo = .ListCount
          Cancel = True
          Effect = fmDropEffectMove
          .AddItem Data.GetText, lTo
          If mobjFromList = Me.ListBox1 And lTo < mlFrom Then
              mobjFromList.RemoveItem (mlFrom + 1)
          Else
              mobjFromList.RemoveItem mlFrom
          End If
          Set mobjFromList = Nothing
      End With
End Sub

'---------------------
Private Sub listbox2_MouseMove(ByVal Button As Integer, _
      ByVal Shift As Integer, _
      ByVal X As Single, _
      ByVal Y As Single)
        
      Dim objData As DataObject
      Dim lEffect As Long
        
      Const lLEFTMOUSEBUTTON As Long = 1
        
      If Button = lLEFTMOUSEBUTTON Then
          Set objData = New DataObject
          Set mobjFromList = Me.ListBox2
          objData.SetText Me.ListBox2.Text
          mlFrom = Me.ListBox2.ListIndex
          lEffect = objData.StartDrag
      End If
End Sub
     
Private Sub listbox2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
      ByVal Data As MSForms.DataObject, _
      ByVal X As Single, _
      ByVal Y As Single, _
      ByVal DragState As MSForms.fmDragState, _
      ByVal Effect As MSForms.ReturnEffect, _
      ByVal Shift As Integer)
        
      Cancel = True
      Effect = fmDropEffectMove
End Sub
     
Private Sub listbox2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
      ByVal Action As MSForms.fmAction, _
      ByVal Data As MSForms.DataObject, _
      ByVal X As Single, _
      ByVal Y As Single, _
      ByVal Effect As MSForms.ReturnEffect, _
      ByVal Shift As Integer)
     
      Dim lTo As Long
     
      With Me.ListBox2
          lTo = .TopIndex + Int(Y * 0.85 / .Font.Size)
          If lTo >= .ListCount Then lTo = .ListCount
          Cancel = True
          Effect = fmDropEffectMove
          .AddItem Data.GetText, lTo
          If mobjFromList = Me.ListBox2 And lTo < mlFrom Then
              mobjFromList.RemoveItem (mlFrom + 1)
          Else
              mobjFromList.RemoveItem mlFrom
          End If
          Set mobjFromList = Nothing
      End With
End Sub