Sub PasteHyper()
    Dim fso As Object, fromfolder As Object, i As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
Sheets(1).Columns(1).ClearContents
For Each fromfolder In fso.GetFolder("C:\").subFolders
        With Sheets(1)
            .Hyperlinks.Add Anchor:=IIf(.Cells(1, 1) = "", .Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)), Address:=fromfolder.Path, TextToDisplay:=fromfolder.Path
        End With
    Next fromfolder
End Sub

Sub Фильтрация()
Dim i As Integer
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
        
        For i = 1 To .PivotItems.Count
            If i < .PivotItems.Count - 4 Then
                .PivotItems(i).Visible = False
            Else
                .PivotItems(i).Visible = True
            End If
        Next i
        
    End With
End Sub

"SELECT DISTINCT REGN, 
case when  NUM_SC IN ('20202','20203','20206','20207','20208','20209','20210','30210','30102','30104','30106','20302','20303','20305','20308','20401','20402','20403','30110','30118','30119','30125','30213','30114')
then SUM (IITG) 
else 0 
end As ВысоколиквидныеАктивы ,
case when   NUM_SC IN ('20202','20203','20206')
then  SUM (IITG) 
else 0 
end As Касса 
FROM [Лист1$] 
GROUP BY REGN"