Copy Down to last Row

[gheyman]

How Do I get the formula to go down to the last Row?

 lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    lastcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column + 1 'after last populated col
    lastcol2 = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column 'after last populated col

        nowdate = Now()
            For X = 1 To lastrow
                Cells(1, lastcol) = nowdate
                Cells(2, lastcol2 + 1).FormulaR1C1 = "=SUMIF('54_TPL_01_02'!C7,RC1,'54_TPL_01_02'!C12)"
                
            Next X

And then PAste Special Value the formula. I need it to be values after the formula Calcs

 

[Fluff]

How about

nowdate = Now()
Cells(1, LastCol) = nowdate
Range(Cells(2, lastcol2 + 1), Cells(lastrow, lastcol2 + 1)).FormulaR1C1 = "=SUMIF('54_TPL_01_02'!C7,RC1,'54_TPL_01_02'!C12)"

 

[gheyman]

Thanks Fluff!

 

[Fluff]

You're welcome