Bom dia!
o que posso fazer para esta vba ficar mais rápida, otimizar ela.
Não tenho experiencia em programação sou iniciante
Sub Atualizar_cargas()
'
' Atualizar_cargas Macro
Dim Tempo As Double
Tempo = Now()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Sheets("Dados_Cargas").Select
ActiveSheet.Range("$a$1:$d$10000").AutoFilter Field:=1, Criteria1:="<>"
Columns("A:d").Select
Selection.Copy
Sheets("Cargas_Filtradas").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, 1).Select
Sheets("Dados_Cargas").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Cells(1, 1).Select
Sheets("Painel").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox Now() - Tempo
End Sub