Guru do Excel e Power BI

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim TabelaConsulta As ListObject, TabelaConsulta2 As ListObject
        
    Set TabelaConsulta = wshAtivDiarias.ListObjects("TB_ConsultaAtivCadastrada")
    Set TabelaConsulta2 = wshPlanAuxiliar.ListObjects("TB_ConsultaAtivCadastrada2")
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Data").DataBodyRange) Is Nothing And VBA.IsDate(Target.Value) Then
        With wshPlanAuxiliar
            .Range("Ano_Referencia").Value2 = VBA.Year(Target.Value2)
            .Range("Mes_Referencia").Value2 = Application.WorksheetFunction.Proper(VBA.Format(Target.Value2, "mmmm"))
        End With
    End If
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Fluxo").DataBodyRange) Is Nothing Then
        With TabelaConsulta2.ListRows(1)
            .Range(1, 5).Value2 = TabelaConsulta.ListRows(1).Range(1, 5).Value2 'Coluna Fluxo
        End With
    End If
    
    If Not Application.Intersect(Target, TabelaConsulta.ListColumns("Periodicidade").DataBodyRange) Is Nothing Then
        With TabelaConsulta2.ListRows(1)
            .Range(1, 6).Value2 = TabelaConsulta.ListRows(1).Range(1, 6).Value2 'Coluna Periodicidade
        End With
    End If
    
End Sub