add/subtract last rows in columns

[Fyr]

I have this scenario.
I'm looking up the last row in column C with this:

Range("C6").Value = Sheets("table").Cells(65536, "C").End(xlUp).Value

Here's the problem with this scenario.
I want to add and subtract the last rows in columns C, D, E, and F in this order: D - C + F - E,
and then place them in sheet1 in cell D6.

Is this possible?

Thanks for taking a look!

 

[VoG]

Try

Dim a, b, c, d, e
With Sheets("table")
    a = .Cells(Rows.Count, "D").End(xlUp).Value
    b = .Cells(Rows.Count, "C").End(xlUp).Value
    c = .Cells(Rows.Count, "F").End(xlUp).Value
    d = .Cells(Rows.Count, "E").End(xlUp).Value
End With
Sheets("Sheet1").Range("D6").Value = a - b + c - d

 

[sosullivan]

Hi fyr,

You could try

Sub test()
with sheets("table")
c = .Cells(65536, "C").End(xlUp).Value
d = .Cells(65536, "D").End(xlUp).Value
e = .Cells(65536, "E").End(xlUp).Value
f = .Cells(65536, "F").End(xlUp).Value
Range("C6").Value = c - d + e - f
End Sub

Sorry - just saw Vog's post!

 

[Peter_SSs]

Fyr

Tables often have the same number of rows in each column. I don't know what yours is like, but if that is the case with your table on the 'table' sheet, then you could try this.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Last_Row_Calculation()<br>    <SPAN style="color:#00007F">With</SPAN> Sheets("table").Range("C" & Rows.Count).End(xlUp)<br>        Sheets("Sheet1").Range("D6").Value = _<br>            .Offset(, 1).Value - .Value + .Offset(, 3).Value - .Offset(, 2).Value<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>