Popolamento celle da primo valore menu a tendina

Public Function Succ(Turno As Variant) As Variant
Dim Sequenza As Variant
Dim C As Long
    Sequenza = Application.Transpose(Range("AL4:AL19"))
    Succ = ""
    If Turno <> "" Then
        For C = LBound(Sequenza) To UBound(Sequenza)
            If Sequenza(C) = Turno Then
                If C = UBound(Sequenza) Then
                    Succ = Sequenza(LBound(Sequenza))
                Else
                    Succ = Sequenza(C + 1)
                End If
                Exit For
            End If
        Next C
        If Succ = "" Then Succ = CVErr(xlErrValue)
    End If
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim OK As Boolean
    If Not Intersect(Target, Range("C4:F4")) Is Nothing Then
        Cancel = True
        If Target <> "" Then
            OK = MsgBox("La cella  selezionara contiene gia un valore." & vbCrLf & _
                "Continuare?", vbYesNo + vbInformation, "[SVILUPPO TURNO]") = vbYes
        Else
            OK = True
        End If
        If OK Then fSviluppo.Show
    End If
End Sub

Dim Target As Range
Dim AnnoCorrente As Long

Private Function Giorni_Mese(M As Byte) As Byte
    Giorni_Mese = Day(DateSerial(AnnoCorrente, M + 1, 0))
End Function

Private Sub Compila(Target As Range, Index As Long)
Dim Sequenza As Variant
Dim Valore As String
Dim CurCell As Range
Dim C As Long, Puntatore As Byte, Max As Byte, Mese As Byte, Giorno As Byte
    Me.Hide
    Sequenza = Me.ComboBox1.List
    Set CurCell = Target
    Puntatore = Me.ComboBox1.ListIndex
    Max = UBound(Sequenza)
    For Mese = 1 To 12
        For Giorno = 0 To Giorni_Mese(Mese) - 1
            CurCell.Offset(Giorno, 0) = Sequenza(Puntatore, 0)
            Puntatore = Puntatore + 1
            If Puntatore > Max Then Puntatore = LBound(Sequenza)
        Next Giorno
        If Mese <> 6 Then
            Set CurCell = CurCell.Offset(0, 6)
        Else
            Set CurCell = Target.Offset(35, 0)
        End If
    Next Mese
End Sub

Private Sub ComboBox1_Change()
With Me.ComboBox1
    If .ListIndex > -1 And .Text <> "" Then Compila Target, .ListIndex
End With
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 27 Then
        CommandButton1_Click
    End If
End Sub

Private Sub CommandButton1_Click()
Me.ComboBox1 = ""
    Me.Hide
End Sub

Private Sub UserForm_Activate()
    Set Target = ActiveCell
    If IsDate(ActiveSheet.Range("A4")) Then
        AnnoCorrente = Year(ActiveSheet.Range("A4"))
    Else
        AnnoCorrente = Year(Date)
    End If
    With Me.ComboBox1
        .List = Application.Transpose(Range("AL4:AL" & Range("AL4:AL19").End(xlDown).Row))
        .ListRows = .ListCount
        .Visible = True
        .DropDown
    End With
End Sub

Private Sub Compila(Target As Range)
Dim Sequenza As Variant
Dim Valore As String
Dim CurCell As Range
Dim C As Long, Puntatore As Byte, Max As Byte, Mese As Byte, Giorno As Byte
    Me.Hide
    Sequenza = Me.ComboBox1.List
    Set CurCell = Target
    Puntatore = Me.ComboBox1.ListIndex
    Max = UBound(Sequenza)
    For Mese = 1 To 12
        For Giorno = 0 To Giorni_Mese(Mese) - 1
            CurCell.Offset(Giorno, 0) = Sequenza(Puntatore, 0)
            Puntatore = Puntatore + 1
            If Puntatore > Max Then Puntatore = LBound(Sequenza)
        Next Giorno
        If Mese <> 6 Then
            Set CurCell = CurCell.Offset(0, 6)
        Else
            Set CurCell = Target.Offset(35, 0)
        End If
    Next Mese
End Sub

        If Mese <> 6 Then
            Set CurCell = CurCell.Offset(0, 6)
        Else
            Set CurCell = Target.Offset(35, 0)
        End If