="A"&B10

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A9:A36")) Is Nothing Then
       Dim lr As Long
       lr = Target.Row
       Rows(lr & ":50").EntireRow.Hidden = False
       Rows(lr + 2 & ":36").EntireRow.Hidden = True
    End If
End Sub

Sub Stroki()
   ThisWorkbook.Worksheets("Лист1").Activate
   Dim i As Long
   Dim lr As Long
   Dim R As Long
   Dim NR As Long
   Dim a
   i = Evaluate("MIN(A:A)")
   lr = Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
   a = Worksheets("Лист1").Range("A2:A" & lr) 'если нужно больше столбцов в массиве - добавьте
   ReDim b(1 To UBound(a), 1 To 1)            'с первого по первый столбец (добавьте, если нужно больше)
   For R = 1 To UBound(a)
   If a(R, 1) <> i Then
       NR = NR + 1
       b(NR, 1) = a(R, 1)
       End If
   Next R
       Worksheets("Лист1").Range("A2:A" & lr).ClearContents
       Worksheets("Лист1").Range("A2").Resize(NR) = b
End Sub

Sub Ярлык()
    Dim sPath As String         'путь к файлу
    Dim sFold As String         'путь к вложенной папке
    Dim sPath1                  'путь к рабочему столу
    Dim sFileName As String     'Имя файла
    Dim LinkDesktop As Object
    Dim LinkFolder As Object
    Dim WshShell As Object
    Dim WshShell1 As Object
    sPath = ThisWorkbook.Path & "\"
    sFold = ThisWorkbook.Path & "\Ico"
    sFileName = ThisWorkbook.Name
    
    Set WshShell = CreateObject("WScript.Shell")
    sPath1 = WshShell.SpecialFolders("Desktop")
    
    Set LinkDesktop = WshShell.CreateShortcut(sPath1 & "\Мой ярлык.lnk") 'местоположение и имя ярлыка
    Set LinkFolder = WshShell.CreateShortcut(sPath1 & "\Папка.lnk")      'местоположение и имя ярлыка
    
    With LinkDesktop
        .Description = "Работаем с удовольствием!"          'Комментарий ярлыка на раб. столе
        .TargetPath = sPath & sFileName                     'ссылка на исходный файл
        .IconLocation = sPath & "Ico\Icon1.ico"             'ссылка на иконку
        .WindowStyle = 3                                    'Окно во весь экран
        .Save
    End With
    With LinkFolder
        .Description = "Вложенная папка"
        .TargetPath = sFold
        .IconLocation = sPath & "Ico\Icon1.ico"
        .Save
    End With
End Sub

    Dim sPath As String
    Dim sFileName As String  
    Dim WshURLShortcut As Object  
    sPath = ThisWorkbook.Path & "\"
    sFileName = ThisWorkbook.Name    
    Set WshURLShortcut = CreateObject("WScript.Shell").CreateShortcut(sPath & "Мой ярлык.lnk")
    WshURLShortcut.Description = "Работаем с удовольствием!"
    WshURLShortcut.TargetPath = sPath & sFileName
    WshURLShortcut.Save