Acelerar Macro que copia datos

[dgiufre]

Para: Cacho R

Hola Cacho, me podras ayudar con esta macro, te paso el codigo:

Sub Copiar_Numeros()
    Range("V2", Cells(999001, Columns.Count)).ClearContents
    For i = 2 To 999001
        If Cells(i, "U") > 2 And Cells(i, "U") < 9 Then
            k = Columns("V").Column
            For j = 1 To Columns("T").Column
                If Cells(i, j) <> "" Then
                    Cells(i, k) = Cells(i, j)
                    k = k + 1
                End If
            Next
        End If
    Next
    MsgBox "Fin"
End Sub

Necesito acelerar el proceso de copia al maximo ya que se trata de 999.000 datos que no es poca cosa.

Lo que la macro hace es: de la fila A2:T2 que contiene celas vacias y celdas con numeros, primero chequea la U2 tenga un numero entre el 3 y el 8, si se cumple esa condicion copia de izquierda a derecha consecutivamente los numeros en las celdas V2:AC2 y  asi hasta la ultima fila

Gracias

[Invitado Cacho R]

¿Conoces al filtro avanzado?...

¿Ya lo intentaste con ese recurso?...