This is what I have so far....It doesn't work though...


Sub Test()

Dim R As Range
Dim CR As Range
Dim Num As Integer



Set R = Range("C3")
Set CR = Range("K3")
Num = 0


Select Case ActiveSheet.Calculate
Case True
CR.Offset(0, Num) = R
End Select
Num = Num + 1




End Sub