Tengo problemas al guardar datos de un listbox en hoja de Excel usando tablas dinámicas.

Tengo un problema con listbox porque utilizo la propiedad rowsource con una tabla dinámica para que me muestre lo que estoy guardando en la hoja de Excel para después guardar esos datos en otra hoja, pero al darle guardar, la macro los guarda, pero se para por 30 segundos. Me seria muy útil sus opiniones gracias...

Dim Fila As Integer
Dim Final As Integer
Dim i As Integer
Dim X As Integer

    For Fila = 2 To 1000
           If Hoja5.cells(Fila, 2) = "" Then
               Final = Fila
               Exit For
           End If
    Next

    For i = 0 To ListBox3.ListCount - 1
        Hoja5.cells(Final, 2) = ListBox3.List(i, 0)
        Hoja5.cells(Final, 3) = ListBox3.List(i, 1)
        Hoja5.cells(Final, 4) = ListBox3.List(i, 2)
        Hoja5.cells(Final, 5) = ListBox3.List(i, 3)
        Hoja5.cells(Final, 6) = ListBox3.List(i, 4)
        Hoja5.cells(Final, 7) = ListBox3.List(i, 5)
        Final = Final + 1
    Next

End Sub