Private Sub CBGotovo_Click()
    Dim i As Integer
    Dim ED As Integer
    Dim NN As Integer
    Dim Txt_IK As String
    Dim AdrCol1 As Integer
    Dim AdrRow1 As Integer
    Dim L5_BZ As Worksheet
    Dim Tufta() As Variant
    Application.EnableEvents = False
    ED = Range("Данные").Columns.Count
    If LBSpisok.ListCount = ED Then
        Set L5_BZ = Worksheets("Лист5")
        NN = 11
        Txt_IK = Range("Разнос").EntireColumn(1).Address(ReferenceStyle:=xlR1C1)
        AdrCol1 = Val(Right(Txt_IK, Len(Txt_IK) - 1))
        Txt_IK = Range("Разнос").EntireRow(1).Address(ReferenceStyle:=xlR1C1)
        AdrRow1 = Val(Right(Txt_IK, Len(Txt_IK) - 1))
        ReDim Tufta(1 To ED) As Variant
        For i = 3 To NN
            Tufta = L5_BZ.Range(Cells(2, i).Address, Cells(ED + 1, i).Address).Value
            Worksheets("Лист1").Range(Cells(AdrRow1 + i - 3, AdrCol1).Address, Cells(AdrRow1 + i - 3, AdrCol1 + ED -
            1).Address).Value = Application.WorksheetFunction.Transpose(Tufta)
        Next i
        Unload UFDRaznoski
        Worksheets("Лист5").Range(Cells(2, 1).Address, Cells(ED + 1, NN).Address).ClearContents
        Worksheets("Лист1").Range("Разнос").Cells(1, 1).Offset(-3, 3).Activate
    Else
        MsgBox "Системный сбой! "
        Unload UFDRaznoski
    End If
    Application.EnableEvents = True
    ActiveWorkbook.Save
End Sub

Workbooks.Open (ThisWorkbook.Path & "\R" & CStr(Year(Workbooks(Z).Worksheets("Лист1").Range("Дата").Value)) & ".xlsx") 'Открываем файл R.xlsx за соответствующий год
Workbooks("R" & CStr(Year(Workbooks(Z).Worksheets("Лист1").Range("Дата").Value)) & ".xlsx").Worksheets("Лист1").Cells(Columns(1).Find(Workbooks(Z).Worksheets("Лист1").Range("Дата").Value).Row, 3) = "blabla" 'Выводим данные в файл R.xlsx в соответствующую строку за соответствующий год
Workbooks("R" & CStr(Year(Workbooks(Z).Worksheets("Лист1").Range("Дата").Value)) & ".xlsx").Save 'Сохраняем файл R.xlsx
Workbooks("R" & CStr(Year(Workbooks(Z).Worksheets("Лист1").Range("Дата").Value)) & ".xlsx").Close 'Закрываем файл