listbox to listbox data transfering problem

There's no code for ListBox3 in the attached workbook.

Try this.

Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim idx As Long

    idx = ListBox3.ListIndex

    If idx <> -1 Then
        Select Case True
            Case OptionButton1.Value    ' day
                ListBox4.AddItem ListBox3.List(idx)
            Case OptionButton2.Value    ' night
                ListBox5.AddItem ListBox3.List(idx)
            Case OptionButton3.Value    ' OT
                ListBox6.AddItem ListBox3.List(idx)
        End Select
        ListBox3.RemoveItem idx
    End If

End Sub

First change the ColumnCount of the ListBox4 and ListBox5 (and ListBox6?) to 2.

Then change the code for ListBox3 to this.

Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim idx As Long
Dim lst As MSForms.ListBox

    idx = ListBox3.ListIndex

    If idx <> -1 Then
        Select Case True
            Case OptionButton1.Value    ' day
                Set lst = ListBox4

            Case OptionButton2.Value    ' night
                lst = ListBox5
            Case OptionButton3.Value    ' OT
                lst = ListBox6
        End Select

        If Not lst Is Nothing Then
            With lst
                .AddItem
                .List(.ListCount - 1, 0) = ListBox3.List(idx, 0)
                .List(.ListCount - 1, 1) = ListBox3.List(idx, 1)
            End With
            ListBox3.RemoveItem idx

        End If
    End If

End Sub