Guru do Excel e Power BI

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LR As Long, LC As Long, c As Range
  If Target.Address <> "$A$1" Then Exit Sub
  If [A2] <> "" Then Range("A2:B" & Cells(Rows.Count, 1).End(3).Row) = ""
  With Sheets("Cronograma")
   On Error Resume Next
   .AutoFilterMode = False
   On Error GoTo 0
   LR = .Cells(Rows.Count, 4).End(3).Row
   LC = .Cells(4, Columns.Count).End(1).Column
   Set c = .Rows(4).Find(Sheets("Programação").[A1])
   If Not c Is Nothing Then
    .Range(.Cells(6, 4), .Cells(6, LC)).AutoFilter c.Column - 3, "<>"
    If .AutoFilter.Range.Columns(c.Column).SpecialCells(xlCellTypeVisible).Count > 1 Then
     .Range("E7:E" & LR).Copy [A2]
     .Range(.Cells(7, c.Column), .Cells(LR, c.Column)).Copy [B2]
    End If
    On Error Resume Next
    .AutoFilterMode = False
    On Error GoTo 0
   Else: MsgBox "DATA NÃO ENCONTRADA"
   End If
  End With
End Sub