Speed up the loop process (Copy paste Value)

[coes]

Hi,

I'm still very beginner in VBA.

I have this VBA code below:

Sub Iteration()

Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
j = Range("C14").Value 'Can be up tp 10,000 iteration
For i = 1 To j
Range(Cells(i + 1, 19), Cells(i + 1, 20)) = Range("P20:Q20").Value
Next i
Application.ScreenUpdating = True
End Sub

The loop process or iteration can be up to 10,000, but it will take like 10 minutes to run.
Appreciate if anyone can help me to speed up the process.

Thanks in advance.