Worksheets(Range("D7").Text).Activate

Application.ScreenUpdating = False

Sub f()
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name And sh.Name <> Range("D7") Then
            sh.Visible = xlSheetHidden
        Else: sh.Visible = xlSheetVisible
        End If
    Next
End Sub

Sub макрос1()
    Dim LastRow As Long, LastRow1 As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count
    
    
    For i = 3 To LastRow
        If Cells(i, 1) = Cells(2, 16) Then
            Cells(Cells(i, 2).End(xlDown).Row + 1, 2) = Cells(2, 17)
        End If
    Next
    
End Sub