with Thisworkbook.Worksheets("Ввод")
 iLastrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1   
 m = Application.WorksheetFunction.Max(Range("a1:a" & iLastrow))
end with

  fName = ThisWorkbook.Path & "\База HR\Шаблон заявки на подбор.xlt"  'Ïóòü ê ôàéëó øàáëîíà çàÿâêè íà ïîäáîð

Option Explicit
Sub test()
Dim sh As Worksheet
Dim res As Worksheet
Dim lastRow As Long, i As Long
Dim num As Long
Dim cAgent As String
Dim summa As Double
Dim y As Long
Set sh = ThisWorkbook.Sheets("Данные")
Set res = ThisWorkbook.Sheets("Результат")

res.Range("a2:c" & res.Cells(res.Rows.Count, 1).End(xlUp).Row).ClearContents
res.Range("a1").Resize(1, 3) = Array("Контрагент", "Сумма", "Номер строки")

With sh
    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    y = 2
    For i = 2 To lastRow
            cAgent = .Cells(i, 1).Value
            num = .Cells(i, 3).Value
            
            If cAgent <> "Прочий внешний" Then
                res.Cells(y, 1).Value = .Cells(i, 1).Value
                res.Cells(y, 2).Value = .Cells(i, 2).Value
                res.Cells(y, 3).Value = .Cells(i, 3).Value
                y = y + 1
            Else
                summa = .Cells(i, 2).Value + summa
                If .Cells(i + 1, 3) <> num Then
                    res.Cells(y, 1).Value = .Cells(i, 1).Value
                    res.Cells(y, 2).Value = summa
                    res.Cells(y, 3).Value = .Cells(i, 3).Value
                    y = y + 1
                    summa = 0
                End If
            End If
    Next i
End With

End Sub

Sub CommandButton1_Click()
    Dim fileSaveName As String
    Dim namef As String
    Dim path As String
     
     
     namef = CStr(Range("K1").Value)
     path = CStr(Range("K2").Value)
    fileSaveName = path & namef & ".pdf"
   
    
    
    MsgBox (namef)
        Sheets("Лист2").ExportAsFixedFormat Type:=xlTypePDF, filename:=(fileSaveName), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   
End Sub

 

Sub ыыы()
' Ìы
Dim s As Worksheet
    Dim wb As Workbook
    Dim fName As String
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
    fName = wb.Path & "\" & s.Name & ".pdf"
    s.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       fName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        Next
End Sub

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\11\Documents\newBoook.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

 

=ЕСЛИОШИБКА(ВПР($A6;Номенклатура!$A$1:$C$6;3;ЛОЖЬ);"")

=СУММПРОИЗВ(I4:I34;F4:F34)

 
 =ЛЕВСИМВ(A1;58)
=ПСТР(A1;59;90)
=ПСТР(A1;148;90)
=ПСТР(A1;238;90)

=ОКРУГЛВНИЗ($D$5/$C$27*C8;0)

dim абв as variant
dim abc as variant

абв = cells(1,1).Value
abc= cells(1,2).Value

Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext"& абв& " /replacetext" & abc &" /folder D:\test")

If Dir(sSaveAsFilePath) <> "" Then
            ans = MsgBox("File " & sSaveAsFilePath & " exists.  Overwrite?", vbYesNo + vbExclamation)
           If ans <> vbYes Then
                Exit Sub
            Else
                Kill sSaveAsFilePath
            End If
        End If