Agilizar VBA

[andre luis kasburg]

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