VB Formulas entre hojas de un mismo libro

[Dic]

Sub Macro2()
Dim r As Double
Dim c As Double
Sheets("PU's(1)").Select
c = ActiveCell.Column
r = ActiveCell.Row
Worksheets("CARTA PROPUESTA").Activate
[a1].FormulaR1C1 = "='PU''s(1)'!R[" & r - 1 & "]C[" & c - 1 & "]"
Sheets("PU's(1)").Select
End Sub

estando en PU's(1) toma los valores
c=4 y r=11

se cambia de hoja a CARTA PROPUESTA y en la celda activa B31 me pone
='PU''s(1)'!F42

que no corresponde a c=2 que es B y r=31

este es mi problema me podrian ayudar perdon por no saberlo explicar