Prezados, tenho um arquivo que faz a busca de informações coladas em uma aba e organiza os dados em outra aba. Porém quando incluí algumas restrições na busca (criei uma lista em outra aba) e incluí uma lista de endereços nesta busca (criei outra aba) o arquivo ficou absurdamente grande. Passou de uns poucos kB para 27MB.

Alguém consegue me dar uma dica do que pode ter acontecido?
Segue o código antes e depois:

MACRO ANTES DA MUDANÇA:

Sub EXECUTAR()
'
' EXECUTAR Macro

    Application.ScreenUpdating = False
    
    Sheets("COLAR").Select
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Selection.NumberFormat = "General"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=""2"","""",IF(RC[-2]="""",RC[-4],IF(RC[-2]<>R[-1]C[-2],RC[-4],MID(R[-1]C,1,4)&RC[-4])))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F650")
    Range("F2:F650").Select
    ActiveWindow.SmallScroll Down:=-15
    Columns("K:K").Select
    Selection.NumberFormat = "General"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "1100"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],C6:C9,4,0)"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/R1C11"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K650")
    Range("K2:K627").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("LISTA").Select
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,2,0)"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,6,0)"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,3,0)"
    Range("D3:F3").Select
    Selection.Copy
    Range("D3:F650").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D3:F650").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("COLAR").Select
    Range("A2:J2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:K").Select
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "COLAR AQUI"
    Range("A2").Select
    Sheets("LISTA").Select
    Range("D3").Select

    Columns("D:F").Select
    Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Rows("2:2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="<>", Operator:=xlAnd, _
        Criteria2:="<>0"
        
    Range("D2").Select

    Application.ScreenUpdating = True

End Sub
Sub LIMPAR()
'
' LIMPAR Macro


'
    Rows("2:2").Select
    Selection.AutoFilter
       
    Range("D3:F650").Select
    Selection.ClearContents
    Range("D2").Select
End Sub

MACRO DESPOIS DA MUDANÇA:

Sub EXECUTAR1()
EXECUTAR
POSIÇÃO
EXCLUIR2


End Sub
Sub EXECUTAR()
'
' EXECUTAR Macro


'
    Application.ScreenUpdating = False
    
    Sheets("COLAR").Select
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Selection.NumberFormat = "General"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=""2"","""",IF(RC[-2]="""",RC[-4],IF(RC[-2]<>R[-1]C[-2],RC[-4],MID(R[-1]C,1,4)&RC[-4])))"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F650")
    Range("F2:F650").Select
    ActiveWindow.SmallScroll Down:=-15
    Columns("K:K").Select
    Selection.NumberFormat = "General"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "9000"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],C6:C9,4,0)"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/R1C11"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K650")
    Range("K2:K650").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("LISTA").Select
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,2,0)"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,6,0)"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,COLAR!C6:C11,3,0)"
    Range("D3:F3").Select
    Selection.Copy
    Range("D3:F650").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D3:F650").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("COLAR").Select
    Range("A2:J2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:K").Select
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "COLAR AQUI"
    Range("A2").Select
    Sheets("LISTA").Select
    Range("D3").Select

    Columns("D:F").Select
    Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Rows("2:2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="<>", Operator:=xlAnd, _
        Criteria2:="<>0"
        
    Range("D2").Select
    

    Application.ScreenUpdating = True

End Sub

Sub POSIÇÃO()
'
    Sheets("LISTA").Select
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Lista,6,FALSE)"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:G650"), Type:=xlFillDefault
    Range("G3:G650").Select
    
End Sub


Sub EXCLUIR2()

    Rows("2:2").Select
    Range("C2").Activate
    Selection.AutoFilter Field:=4, Criteria1:="<>", Operator:=xlAnd, _
            Criteria2:="<>0"
    Range("C3").Select
End Sub


Sub LIMPAR()
'
' LIMPAR Macro

'
    Rows("2:2").Select
    Range("C2").Activate
    Selection.AutoFilter
       
    Range("D3:H650").Select
    Selection.ClearContents
    Range("D2").Select
    Application.ScreenUpdating = True
    
End Sub