Optimizar fórmula para un trabajo más rápido

Estoy tratando de optimizar unas fórmulas que se encargan de copiar datos de una hoja a otra sin que salga de la hoja activa o al menos lo oculte, he logrado optimizar, por la siguiente:

Sub faltast1()
'
' faltast1 Macro
'
Sheets("t.informe").Visible = True
Sheets("informe").Unprotect Password:="1"
Call notast1
Call estadost1
'
Sheets("t.informe").Select
Range("A4:A43").Select
Selection.Copy
Sheets("Informe").Select
Range("H16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("informe").Protect Password:="1"
Sheets("t.informe").Visible = False
End Sub

... Optimizada

Sub faltast1()

'

' faltast1 Macro

'

Sheets("informe").Unprotect Password:="1"

Call notast1

Call estadost1

Sheets("t.informe").Range("Faltas_T1").Copy Destination:=Sheets("INFORME").Range("H16")

Sheets("informe").Protect Password:="1"

End Sub

Me hace el mismo trabajo, con una mejor fluidez, el problema esta en que al aplicar filtro, no funciona de la manera correcta como lo hace con las macros "no optimizadas"

'
' filtrotabla Macro
'

'
Application.CutCopyMode = False
Range("tainforme").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Informe!Criteria"), Unique:=False
Range("O4:V4").Select
Selection.ClearContents

Call Actualiarhoja
Call copiaratempcitaciones
Sheets("temp.citaciones").Visible = False
Sheets("citaciones").Calculate

forma correcta - macro no optimizada

Macro optimizada, no se visualiza datos en "Estado" y "Puntaje".