ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[1]<>"""",Px!R[-48]C[1]/OFFSET(Px!R1C[1],+Model!R19C,0)-1,"""")"
Range("B50").Select
ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[1]<>"""",Px!R[-48]C[1]/OFFSET(Px!R1C[1],+Model!R19C[-1],0)-1,"""")"
Range("L50").Select
ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[-8]<>"""",Px!R[-48]C[-8]/OFFSET(Px!R1C[-8],+Model!R19C[-11],0)-1,"""")"
Range("M50").Select
ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[-8]<>"""",Px!R[-48]C[-8]/OFFSET(Px!R1C[-8],+Model!R19C[-12],0)-1,"""")"
Range("W50").Select
ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[-17]<>"""",Px!R[-48]C[-17]/OFFSET(Px!R1C[-17],+Model!R19C[-22],0)-1,"""")"
Range("X50").Select
ActiveCell.FormulaR1C1 = _
"=IF(Px!R[-48]C[-17]<>"""",Px!R[-48]C[-17]/OFFSET(Px!R1C[-17],+Model!R19C[-23],0)-1,"""")"
Range("X51").Select