You are writing the formula using absolute reference. If you want relative reference, you'll have to write the formula that way:
You could put it into another set of temporary variables if you need to keep the original temps. Try this and see if it works. You might have to debug. I haven't tested this at allCode:temprow = temprow - activecell.row monthColumn = monthColumn - ActiveCell.Column ActiveCell.FormulaR1C1 = "='EKSP-REPORT-SHARE'!R[" & tempRow & "]C[" & monthColumn & "]"