Sub ГИПЕРССЫЛКА_АВАТАРКА()

ThisWorkbook.FollowHyperlink Range("a1")  
 
End Sub

=ГИПЕРССЫЛКА("https://www.instagram.com/"&U2&"/")

"https://www.instagram.com/akuna_matata__official/"

=ГИПЕРССЫЛКА(ВПР(U2;ВЫБОР({1;2};'Исходная таблица'!A4:B1003;'Исходная таблица'!AD4:AD1003);2;ЛОЖЬ))

"https://scontent-arn2-1.cdninstagram.com/v/t51.2885-19/s320x320/122201100_1549765365411362_7789959929216279160_n.jpg?_nc_ht=scontent-arn2-1.cdninstagram.com&_nc_ohc=Aw0SkOQKZkAAX_eZERD&_nc_tp=25&oh=054ed24bc7d845a5124afa11a39be22d&oe=5FD51E29"

=ГИПЕРССЫЛКА(ВПР(U2;ВЫБОР({1;2};'Исходная таблица'!A4:B1003;'Исходная таблица'!AA4:AA1003);2;ЛОЖЬ))

"https://genz-trends.com/nakedmoney"

FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))

Sub ГИПЕРССЫЛКА_ПРОФИЛЬ()
   Url$ = FormulaHyperlink(Range("Ao2"))  
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$      
End Sub

Sub ГИПЕРССЫЛКА_АВАТАРКА()
   Url$ = FormulaHyperlink(Range("AP2"))
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$      
End Sub

Sub ГИПЕРССЫЛКА_САЙТ()  
   Url$ = FormulaHyperlink(Range("AQ2"))
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$    
End Sub
  
Function FormulaHyperlink(ByRef cell As Range) As String
    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If   
End Function

Sub ГИПЕРССЫЛКА()
 
   Url$ = FormulaHyperlink.Range("F22")
     

   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$
     
End Sub
 
Function FormulaHyperlink(ByRef cell As Range) As String

    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If
    
End Function

Option Explicit
Sub ПХ_ОБЩАЯ_скрытьвсе1()   
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoTrue
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = False
End Sub

Sub ПХ_ОБЩАЯ_скрытьвсе()
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoFalse
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = True
End Sub

    .Range("AK1:AFF1010").Copy

Sub ИНФО_ПОСТЫ()
With Worksheets("Запрос")
    Sheets("Запрос").Select
    Range("AK1:AFF1010").Select
    Selection.Copy
    Range("AGR1:BLM1010").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            Application.CutCopyMode = False
End With
End Sub

Sub ОБН_посты()
    With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ФИФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
End Sub

Sub ОБН_информации()
With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ИНФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
Call КП_СТАТИСТИКА_ОБЩАЯ
    End Sub

Sub ОБН_посты()
    With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ФИФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
End Sub

Option Explicit


Sub КОПИЯ_БАЗА()

    Dim arrin(), arrout(), R&, c&

    arrin = ThisWorkbook.Worksheets("Запрос").Range("AFH4:AGQ1003").Value
    arrout = ThisWorkbook.Worksheets("Запрос").Range("BQF4:BRO1003").Value
    
    
    
    For R = 1 To UBound(arrin)
        For c = 1 To UBound(arrin, 2)
            If Len(arrin(R, c)) = 0 Or arrin(R, c) = " " Then
        '        ни чего не делаем
            Else
                arrout(R, c) = arrin(R, c)
            End If
        Next c
    Next R
    ThisWorkbook.Worksheets("Запрос").Range("BQF4:BRO1003").Value = arrout


End Sub