Animated line chart

Hello!

I want an animated line chart. The chart area must stay as it is in the beginning of the animation so only thing that changes in the animation would be the actual line.

This is what I came up with:

4iQIP.png

I have the values in B2:B1001. The chart now takes its data from A2:A1001.
I wrote a script that copies values from Bx to Ax one by one.

Sub Macro3()
    Dim i As Long
    For i = 2 To 1001
        Cells(i, 1).Value = Cells(i, 2).Value
        Application.Wait (Now + 0.000002)
    Next i
End Sub

It works if the number of rows is small enough and the waiting time is big enough. Otherwise it will crash.

How do I make this in the right way and animation work smoothly?