Sub Отчет()

    Dim ПоследняяСтрокаОбщий As Long
    Dim ПоследняяСтрокаОтчет As Long
    Dim ПоследнийСтолбец As Long
    Dim СтрокаОбщий As Long
    Dim СтрокаОтчет As Long
    Dim Столбец As Long
    
    Dim ПутьКФайлу As String
    Dim НазваниеФайла As String
    
    Dim ОбщийФайл As Worksheet
    Dim Отчет As Worksheet
    
    Set ОбщийФайл = ThisWorkbook.Worksheets(1)
    ПутьКФайлу = ThisWorkbook.Path & "\"
    
    ПоследнийСтолбец = ОбщийФайл.Cells.SpecialCells(xlLastCell).Column
    ПоследняяСтрокаОбщий = ОбщийФайл.Cells.SpecialCells(xlLastCell).Row
    
    For Столбец = 3 To ПоследнийСтолбец
        'Название файла формируюется из месяца и года в заголовках начиная с третьего столбца. Все названия отчетных файло должны быть вид "ммгггг"
        'Все отчетные файлы находятся в той же папке, что и общий файл
        НазваниеФайла = Format(DatePart("m", Cells(1, Столбец)), "00") & DatePart("yyyy", Cells(1, Столбец))
        НазваниеФайла = ПутьКФайлу & НазваниеФайла
        If Dir(НазваниеФайла & "*") <> "" Then
            НазваниеФайла = Dir(НазваниеФайла & "*")
            Set Отчет = Workbooks.Open(ПутьКФайлу & НазваниеФайла).Worksheets(1)
            ПоследняяСтрокаОтчет = Отчет.Cells.SpecialCells(xlLastCell).Row
            СтрокаОбщий = 2
            Do While СтрокаОбщий <> ПоследняяСтрокаОбщий + 1
                СтрокаОтчет = 2
                Do While СтрокаОтчет <> ПоследняяСтрокаОтчет + 1
                    'Наименование в общем и отчетном файлах начинается со второй строки первого столбца
                    If Отчет.Cells(СтрокаОтчет, 1) = ОбщийФайл.Cells(СтрокаОбщий, 1) Then
                        'Суммы в отчетных файлах находятся в третьем столбце
                        ОбщийФайл.Cells(СтрокаОбщий, Столбец) = Отчет.Cells(СтрокаОтчет, 3)
                        СтрокаОтчет = СтрокаОтчет + 1
                        Exit Do
                    End If
                    СтрокаОтчет = СтрокаОтчет + 1
                Loop
                СтрокаОбщий = СтрокаОбщий + 1
            Loop
            ActiveWorkbook.Close (False)
        End If
    Next

End Sub

Sub Заполнить()
    Dim Строка As Long
    If Selection = "" Then Exit Sub
    Строка = Cells.SpecialCells(xlCellTypeLastCell).Row
    Selection.AutoFill Destination:=Range("A" & Selection.Row & ":A" & Строка), Type:=xlFillCopy
End Sub

=ЕСЛИ(СЧЁТЕСЛИ(A$2:A3;A3)=6;A3+1;A3)

=0,5*СУММ('Отчетп о сделкам'!$B:$B)

=0,3*СУММ('Отчетп о сделкам'!$B:$B)

=СУММЕСЛИ(Лист2!A:A;Лист1!A4&"*";Лист2!B:B)

Sub Формат()

    Dim Строка As Long
    Dim ПоследняяСтрока As Long
    
    ПоследняяСтрока = Cells.SpecialCells(xlCellTypeLastCell).Row
    Строка = 1
    For Строка = 1 To ПоследняяСтрока
        If Cells(Строка, 2) <> "" Then
            If Cells(Строка, 2) Like "Карта*" Then
                Cells(Строка + 1, 1).FormulaR1C1 = "=SUBSTITUTE(MID(R[-1]C[1],8,22),"" "","""")"
                Cells(Строка + 1, 1) = Cells(Строка + 1, 1)
            Else
                If Cells(Строка + 1, 2) <> "" Then Cells(Строка + 1, 1) = Cells(Строка, 1)
            End If
        End If
    Next

End Sub

Worksheets("Лист3").Range("A2:D5").FormulaArray = "=Лист1!RC:R[3]C[3]-Лист2!RC:R[3]C[3]"

Sub CSV()
     
    Dim WS As Worksheet
    Dim LastWS As Long
    Dim Name As String
    
    For Each WS In ActiveWorkbook.Worksheets
        If WS.Visible = True Then LastWS = WS.Index
    Next

    Name = ActiveWorkbook.Path & "\" & "Otchet_" & Replace(ActiveWorkbook.Name, ".xlsx", ".csv")
    
    ActiveWorkbook.Worksheets(LastWS).Copy
    ActiveWorkbook.SaveAs Filename:=Name, FileFormat:=xlCSV
    ActiveWorkbook.Close False
     
End Sub

Sub CSV()
     
    Dim WS As Worksheet
    Dim LastWS As Long
    Dim Name As String
    
    For Each WS In ActiveWorkbook.Worksheets
        If WS.Visible = True Then LastWS = WS.Index
    Next

    Name = ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xlsx", ".csv")
    
    ActiveWorkbook.Worksheets(LastWS).Copy
    ActiveWorkbook.SaveAs Filename:=Name, FileFormat:=xlCSV
     
End Sub

Name = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", ".csv")

Name = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".csv")