Hjælp til Macro i VBA til Excel regneark

VBScript kode 

 Sub udregnSkatForAlleAar()
 
     Dim rRange As Range
     Dim rCell As Range
     Dim indkomstOgBudgetarkNavn As String
     Dim skatteberegningsarkNavn As String
 
         ' Navn på ark
         indkomstOgBudgetarkNavn = "indkomst- og budgetark"
         skatteberegningsarkNavn = "Skatteberegningsark"
 
         ' Sørger for, at det er cellerne i indkomst arket der benyttes i det følgende
         Sheets(indkomstOgBudgetarkNavn).Activate
         
         ' Finder de kolonner/år der skal udregnes skat for
         ' Så længe cellerne er udfyldt, vil de blive taget med i dataområdet.
         Set rRange = Range("A1", Range("XFD1").End(xlLeft))
 
         ' Gennemgå alle årstallene
         For Each rCell In rRange
 
             ' Vi står p.t. i feltet med årstallet
             
             ' 1 felt ned fra årstal feltet er lønindkomst/række 2
             ' Dette overføres til skatteberegningsarket felt B2 (lønindkomst)
             Sheets(skatteberegningsarkNavn).Range("B2").Value = rCell.Offset(1,0).Value
             
             ' 2 felter ned fra årstal feltet er overførselsindkomst/række 3
             ' Dette overføres til skatteberegningsarket felt B3 (overførselsindomst)
             Sheets(skatteberegningsarkNavn).Range("B3").Value = rCell.Offset(2,0).Value
             
             ' Skatteberegningsarket skulle nu udregne den nye skat udfra de indsatte tal og returnere
             ' disse i B4 (beregnet skat)
             
             ' jeg ved ikke, om der er en makro der skal køres for at den beregner, eller om det bare er
             ' celle formularer? Hvis det er en makro, så kør funktionen her..
             
             ' Overfør dette tal fra skatteberegningsark til indkomstark. Tallet overføres til 
             ' feltet der er 4 felter ned fra årstal feltet/række 5
             rCell.Offset(4,0).Value = Sheets(skatteberegningsarkNavn).Range("B4").Value
 
             ' "next rCell" sørger for at gå videre til næste celle i vores dataområde, dvs. næste årstal
             
         Next rCell
         
 End sub

Kode 

=Skatteberegningsark!A2