Sub alehtom()
For i = 1 To 100
 If Cells(1, i).Value = "" Then Cells(1, i).EntireColumn.Hidden = True
Next
End Sub

Sub Smena()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim cl As Range, Sh As Worksheet, _
        Sh_O As Worksheet, XX As Range, fname As String
    Set Sh = ActiveSheet
 
    With Sh
        lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For Each cl In .Range("A1:A" & lRow)
            If cl.Hyperlinks.Count > 0 Then
                cl.Hyperlinks(1).Follow
                Set Sh_O = ActiveWorkbook.Worksheets(1)
                Set XX = Sh_O.Columns("A:C").Find(cl.Offset(0, 1), , , xlWhole)
                If Not XX Is Nothing Then
                    XX.Offset(0, 1).Value = cl.Offset(0, 2).Value
                End If
                Sh_O.Parent.Close (True)
            End If
 
        Next
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub