Foro Excel

Tengo este codigo que me funciona bien, pero el problema es que cuando hago correr el for hasta 1000 (por ejemplo) se demora mucho.
Habra forma de mejorarla

Sub Macro2()
'
' Macro2 Macro
'
'
Dim i As Integer
For i = 1 To 300
If Hoja1.Cells(i, 12) = "" Then
Hoja1.Cells(i, 22).Select
Selection.Copy
Hoja1.Cells(i, 12).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Else
Hoja1.Cells(i, 12) = Hoja1.Cells(i, 12)
End If
Next i
Application.DisplayAlerts = False
Application.Quit
End Sub

saludos

Hola, a lo mejor esto te ayuda.

Código: Seleccionar todo

Sub MejoraTiempo()
Dim Estado as integer
Estado = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreeUpdating = False
Application.Enableevents = False

'Tú Código

Application.Calculation = Estado
Application.Enableevents = True
Application.ScreeUpdating = True
End Sub

Gracias,

Pero ya habia probado y no me servia
A lo mejor programandolo de otra manera?