Çözüldü Aylık takvime göre veri alma

Private Sub CommandButton1_Click()
    Dim ara As Range, satir%, n%, i&, kacinci%
    On Error Resume Next
    Set ara = Columns(3).Find(TextBox1.Value, , , 1)
    If Not ara Is Nothing Then
        satir = ara.Row
    End If
    For n = 1 To 5
        For i = 8 To 38
            kacinci = Weekday(Cells(9, i).Value, vbMonday)
            If kacinci = n Then
                Cells(satir, i) = Controls("gun" & n).Value
            End If
        Next i
    Next n
End Sub

Private Sub CommandButton1_Click()
    Dim n%, i&, s%, kacinci%
    On Error Resume Next
    Range("H13:AL34").ClearContents
    For s = 13 To 33
        For n = 1 To 5
            For i = 8 To 38
                If Cells(9, i).Value <> "" Then
                    kacinci = Weekday(Cells(9, i).Value, vbMonday)
                    If kacinci = n Then
                        Cells(s, i) = Cells(s, n + 49).Value
                    End If
                End If
            Next i
        Next n
    Next s
End Sub

    son = Range("C65536").End(3).Row + 1
    Range("H13:AL" & son).ClearContents