Sum of data accross columns in lastrow+1

[Edwardvanschothorst]

I am trying to add the value in the lastrow in columns C&D in lastrow +1. Can someone please help me with the formula on this? I know this is probably obviouse, but it is friday afternoon, and my brain is shot.

LastPopulatedRow = Range("A" & Rows.Count).End(xlUp).Row
Cells(LastPopulatedRow + 1, 10) =

 

[GWteB]

Obtaining the last row in column C can be done like this

LastPopulatedRow = Cells(Rows.Count, "C").End(xlUp).Row

 

[Edwardvanschothorst]

I have the value / link to the cell, I am trying to find the formula to put into the VBA script. The formula I have in J141 does give me the correct result, but there is a variable amount of rows, and the formula will not work if I just insert the formula.

linear stock production calc Final.xlsm
	A	B	C	D	E	F	G	H	I	J
139	A2X2X.25	117733-1	2	235	2.072	$ 0.52				X 235.
140	A2X2X.25	117733-1	2	237	2.072	$ 0.52				X 237.
141										X 239.
1D_1

Cell Formulas
Range	Formula
E139:E140	E139	=ROUNDUP((B$7+2)/COUNT(C$22:C$200)+C139+0.055,3)
F139:F140	F139	=(VLOOKUP(A139,STOCK!$A$3:$C$20,3,FALSE)/VLOOKUP(A139,STOCK!$A$3:$C$20,2,FALSE)*E139)
J139:J140	J139	="X "&D139&"."
J141	J141	="X " & SUM(C140:D140) & "."

 columnincrementer = -1
    For i = 1 To Worksheets.Count
        cursheetname = Sheets(i).Name
        If Left(cursheetname, 3) = "1D_" And IsNumeric(Mid(cursheetname, 4, 1)) Then
            columnincrementer = columnincrementer + 1
        Sheets(cursheetname).Select
            LastPopulatedRow = Range("A" & Rows.Count).End(xlUp).Row
                If IsEmpty(Range("a23").Value) = False Then
                    Range("E22:j22").autofill Destination:=Range("E22:j" & LastPopulatedRow), Type:=xlFillDefault
                End If
            Cells(LastPopulatedRow + 1, 10) =

 

[GWteB]

Ok, how about ...

    Const MyFormula As String = "=""X "" & SUM(C~:D~) & ""."""

    Cells(LastPopulatedRow + 1, 10) = VBA.Replace(MyFormula, "~", LastPopulatedRow)

 

[Edwardvanschothorst]

Ok, how about ...

    Const MyFormula As String = "=""X "" & SUM(C~:D~) & ""."""

    Cells(LastPopulatedRow + 1, 10) = VBA.Replace(MyFormula, "~", LastPopulatedRow)

Works perfect thanks.

 

[GWteB]

You are welcome and thanks for letting me know.