Hi, I have a few different items that I typically add to an assortment of reports. I create a macro that inserts a column where I have my cursor, name the column, then put the formula I need in the top cell. My macro ends there I double click to copy it down. It works, but I I recently learned to do the copy down part if I know what column I'm in, it would be great to add that last step to my macros, but I don't know how to reference it right. Can someone help me to correct this so it works? Column A has no blank rows, I need to put the formula in whatever column my macro is at when it reaches this bit....
LastRow = Range("a" & Rows.Count).End(xlUp).Row
Range(ActiveCell.Column() & LastRow).Formula = "=IF(RC[-1]<TODAY(),""PD"",ISOWEEKNUM(RC[-1]))"
Thanks in advance!
LastRow = Range("a" & Rows.Count).End(xlUp).Row
Range(ActiveCell.Column() & LastRow).Formula = "=IF(RC[-1]<TODAY(),""PD"",ISOWEEKNUM(RC[-1]))"
Thanks in advance!