Need help with the following:

I have data (equations) in columns P and Q. I need to copy and paste
special values the values in P2 and Q2 to R2 and S2.

I know simple...
But there are a few thousand rows of data and the data in columns P and Q
are based on equations that change based on how far down the R column is
filled down.

Currently I have something like this..
Range("r1", Range("r1").End(xlDown)).Offset(2, -2).Resize(1, 2).Copy
Range("r1", Range("r1").End(xlDown)).Offset(2, 0).Resize(1, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

But it doesn't go to the next set of cells after the initial copy and paste.

I also need to Loop this process for all rows.

Thanks in advance