Sub SaveAsPDF()
    Dim vName As Variant
    Dim wSheet As Worksheet
    vName = Application.GetSaveAsFilename(InitialFileName:="Test.pdf", FileFilter:="PDF files (*.pdf),*.pdf")
    If vName = False Then
        Beep
        Exit Sub
    End If
    Set wSheet = ActiveSheet
    wSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=vName
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$A$1" Then
           MsgBox "действие"
   End If
    

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   

   
   
   'Subfloor1_1 - ïðèçíàê èñïîëüçóåì èëè íåò íèæíåå ïåðåêðûòèå
   '
   '
   '
   ''
    Dim isSubfloorHouse As Integer
      
     If Target.Address = Range("Subfloor1_1").Address And Target = Range("Subfloor1_1") Then
          MsgBox (1)
          If Range("Subfloor1_1") = "Да" Then
            isSubfloorHouse = 0
            Range("range_subfloor_house").entryRow.Hidden = True
          Else
            Range("range_subfloor_house").entryRow.Hidden = False
            isSubfloorHouse = 1
          End If
        End If
     
End Sub

myrows   - > ='лист1'!$15:$21

Private Sub Worksheet_Change(ByVal Target As Range)
     If ??? = "X1" Then
       
        If IsEmpty(Target) Then Exit Sub
           If Range("X1") = "Нет" Then
               'действие 1
          Else
           ' дейсвтвие 2
          End If
       End If
     
End Sub