Sæt værdier excel 2003 og 2010

Har følgende kode som sætter nogle faste formler i et ark. Virker i excel 2003 og 2007 - men virker ikke i 2010....

Hvordan kan koden skrives så både excel 2003 / excel 2007 / excel 2010 kan læse den ?? går galt ved "Set bdata ="

"Sub KonsDato()
'Indsættelse af konsolideringsnøgler
Sheets("DatoI").Select
Range("B5").Select
ActiveSheet.PivotTables("Pivottabel1").PivotCache.Refresh
Set bdata = Sheets("DatoInterval").Range("a4").CurrentRegion
Set idata = bdata.Offset(0, bdata.Columns.Count).Resize(3, 3)
idata.Cells(1) = "Aktivitetsid"
idata.Cells(2) = "DispFraDato"
idata.Cells(3) = "DispTilDato"

idata.Cells(4).Resize(bdata.Rows.Count - 1, 1).FormulaR1C1 = _
"=IF(RC[-4]<>"""",RC[-4],+R[-1]C)"
idata.Cells(5).Resize(bdata.Rows.Count - 1, 1).FormulaR1C1 = _
"=IF(AND(RC[-5]<>"""",RC[-4]<>""""),RC[-4],R[-1]C)"
idata.Cells(6).Resize(bdata.Rows.Count - 1, 1).FormulaR1C1 = _
"=IF(IF(AND(RC[-6]<>"""",RC[-5]<>""""),RC[-4],R[-1]C)=0,"""",IF(AND(RC[-6]<>"""",RC[-5]<>""""),RC[-4],R[-1]C))"

End Sub"