last column vba code

[bhchang84]

Anyone can help me correct on below code:
i need the answer in row 4


Untitled.jpg


Dim lastcol As Long

lastcol = Cells(Columns.Count, "xfd").End(xlToLeft).Column

Range("a4:XFD" & lastcol).FormulaR1C1 = "=R[-3]C+R[-2]C"

[tigeravatar]

bhchang84,

I would use the Intersect method, like so:

Please Login or Register  to view this content.