Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function DownLoadFile(FromPathName As String, ToPathName As String) As Boolean
DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function
Sub download()
Dim lp As String, Filename As String

Set spn = ThisWorkbook.ActiveSheet  ' запоминаем лист
LR = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For x = 2 To LR
lp = spn.Cells(x, 7)
kolvo = (Len(lp) - Len(replace(lp, "https", ""))) / Len("https")
r = 1
w = 1
For y = 1 To kolvo
lim = InStr(r, lp, "https")
lim2 = InStr(lim, lp, "jpg")
If lim2 = 0 Then
lim2 = InStr(lim, lp, "jpeg")
End If
If lim2 = 0 Then
lim2 = InStr(lim, lp, "png")
End If
Dim src As String
If InStr(w, lp, ".jpg") > 0 Then
src = Mid(lp, lim, lim2 - lim) & "jpg"
ElseIf InStr(w, lp, ".jpeg") > 0 Then
src = Mid(lp, lim, lim2 - lim) & "jpeg"
Else
src = Mid(lp, lim, lim2 - lim) & "png"
End If
'ppn = spn.Cells(x, 2)
'pic = spn.Cells(x, 2)
pic = spn.Cells(x, 17)
If y = 1 Then
Filename = "C:\1\" & pic & ".jpg"
Else: Filename = "C:\1\" & pic & "_" & y - 1 & ".jpg"
End If
If DownLoadFile(src, Filename) Then
End If
r = lim2
w = lim2
Next y
r = 1
Next x

End Sub

Sub copy()
  Lr = Cells(Rows.Count, 1).End(xlUp).Row
  Range("A12:G18").Copy Cells(Lr + 1, 1)
  Application.CutCopyMode = False
End Sub

Sub qq()
   Application.ScreenUpdating = False
   x = "True"
   If Sheets("Лист1").[A:A].Find(x) Is Nothing Then Exit Sub
        Sheets("Лист1").Activate
        Sheets("Лист1").[A:A].ColumnDifferences([A:A].Find(x)).EntireRow.Hidden = True
        Sheets("Лист1").UsedRange.SpecialCells(xlCellTypeVisible).Copy Sheets("Лист2").[A5]
        Sheets("Лист1").[A:A].EntireRow.Hidden = False
        Sheets("Лист2").Activate
Application.ScreenUpdating = True
  End Sub

=СУММ(СМЕЩ('Факт Выручки'!$A$1;ПОИСКПОЗ(Выручка!C$2;'Факт Выручки'!$B$1:$B$769;0)-1;
ПОИСКПОЗ(Выручка!A$24;'Факт Выручки'!$A$2:$G$2;0)-1;ПОИСКПОЗ(Выручка!C$8;'Факт Выручки'!$B$1:$B$769;0)-
ПОИСКПОЗ(Выручка!C$2;'Факт Выручки'!$B$1:$B$769;0)+1;1))

SendKeys "~Skygo@150~", True: SendKeys "~", False

For Each objWindow In objVBProject.VBE.Windows
         
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
 
    SendKeys "~Skygo@150~", True: SendKeys "{ENTER}", True
SendKeys "~Skygo@150~", True: SendKeys "{ENTER}", True

For Each objWindow In objVBProject.VBE.Windows
        
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next

    SendKeys "~Skygo@150~", True: SendKeys "{ENTER}", True

Dim lr1&
lr1 = Cells(Rows.Count, 1).End(xlUp).Row + 1

ActiveCell.Offset(lr1, 0)

Sub ддд()
Dim lr1& 
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Лист1!R9C1:R2000C25", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Лист2!R1C1", TableName:="СводнаяТаблица1", _
        DefaultVersion:=xlPivotTableVersion15
     With ActiveSheet.PivotTables("СводнаяТаблица1")
        .PivotFields( _"группа")
        .Orientation = xlRowField        
         .Position = 1
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _"степень") 
       .Orientation = xlRowField  
       .Position = 2  
  End With    
       ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица1").PivotFields("размер"), _ 
         "Количество по полю размер", xlCount  
         lr1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
       ActiveWorkbook.Worksheets("Лист2").PivotTables("СводнаяТаблица1").PivotCache. _
        CreatePivotTable TableDestination:=Worksheets("Лист2").Cells(lr1 + 1, 1), TableName:= _
        "СводнаяТаблица2", DefaultVersion:=xlPivotTableVersion15

 With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("канал")
        .Orientation = xlRowField    
        .Position = 1  
      End With  
   With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("вид") 
       .Orientation = xlRowField    
        .Position = 2    End With  
  ActiveSheet.PivotTables("СводнаяТаблица2").AddDataField ActiveSheet.PivotTables _ 
       ("СводнаяТаблица2").PivotFields("Совокупный"), _ 
       "Количество по полю Совокупный", xlCountEnd Sub

=ЕСЛИ(G7="";"";ЕСЛИ(G7="ИТОГО";0;ЕСЛИ(C6=0;1;C6+1)))