Macro para repor a tabela obrigado

Question

PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)DimdccolumnAsIntegerDimdcvalueAsStringdccolumn=ActiveCell.Columndcvalue=ActiveCell.ValueIfApplication.Intersect(ActiveCell,[headers])IsNothingThenIfActiveCell.Value<>"" Then

         Me.ListObjects(1).Range.AutoFilter Field:=dccolumn + 2, Criteria1:=dcvalue

        End If

    End If

End Sub