Optimize macro

[Nagini]

Hello! I've written this macro, it takes 5 minutes to end the work and I think that maybe someone Knows how to optimize it to make ir faster!


Sub Macro2()


Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False


Dim Indices, Calculos, Seleccion As Worksheet
Set Indices = Sheets("C.Indices")
Set Calculos = Sheets("CALCULOS")
Set Seleccion = Sheets("Sel.Mes")


Dim i As Integer
LastCol = Indices.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 8 To LastCol

Dim j As Integer
j = i - 6

Indices.Columns(i).Copy
Calculos.Select
Columns("D:D").PasteSpecial Paste:=xlPasteValues
Application.Goto Reference:="R318C50"
Range("BR318:CK318").Copy
Seleccion.Select
Cells(j, 1).PasteSpecial Paste:=xlPasteValues

Next i

Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False


End Sub

 

[Nagini]

Thank you very much, Biz, I have added that "with" and commented the macro!! I deleted that msgbox because I thought It was de final macro and there wouldn't be more changes

Thank you all for your tips!!! :D

 

[hiker95]

Thank you all for your tips!!! :D

Nagini,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.

 

[Biz]

Nagini, no problems. We also have our resident expert by Hiker too.

 

[hiker95]

Nagini, no problems. We also have our resident expert by Hiker too.

Biz,

Thank you very much for that.