Sum Lastrow formula!!

You can only set to an object, such range and sheet, not to a variable.

 Lastrow = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)

Okay, so how would I sum column c? Could I do this using the

Worksheetfunction.sum

New to this sorry,

The last row in column c. Thanks for any help

Lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 
Lastrow = Application.WorksheetFunction.Sum(Range("C1:C" & Lastrow))

I think

I get an object fail 1004 with that, but thanks anyway. This works just needs a little formatting then good to go, cheers guys.

Sub Sum_Last_Row()

Set Lastrow = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)
 
Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
 
 
 End Sub

You are still using set with a variable. Remove the set

If I remove that I get the fail again!, all I need it to do is sum column c in about 25 tabs in a workbook and it is doing what I want it to do, unless you have any other ideas? Its going to loop through the active workbook and sheets and sum column c. As i'm new this works for me! but open to all suggestions

Thanks yudluga I will try it, This will work in all the worksheets in the workbook? well I guess I will find out in a min

Yes I'm still getting the "Global fail 1004" With that? I'm not sure why

Are you trying to get the result into the cell at the end of the column C? If so, and you are defining Lastrow as a range object then you are right to use the set and that is also why the code I gave didn't work, you would need:

Sub Sum_Last_Row()
Dim Lastrow As Range
Set Lastrow = Cells(Rows.Count, 3).End(xlUp)
Lastrow = Application.WorksheetFunction.Sum(Range("C1:C" & Lastrow))
End Sub

No, just the activesheet, for all sheets I would do that like this:

Sub sum_C_column()
Dim wSh
For Each wSh In ActiveWorkbook.Sheets
wSh.Range("C" & Cells(Rows.Count, 3).End(xlUp).Row) = Application.WorksheetFunction.Sum(wSh.Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row))
Next
End Sub

Edit - I've tested all the code I've put and it all works without error on my setup. Could you upload a workbook with the code as you are getting an error?

Okay but let me try your new code yudlugar, appreciate your help, thanks

Okay for some reason that doesnt do anything on mine! perhaps I'm doing something wrong, I will upload the workbook, I'm using the code below to sum columns C:J, just need to make some alterations but it seems to work for me

Sub Sum_Last_Row()

Set Lastrow = Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"

Set Lastrow = Cells(Rows.Count, "D").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
  
Set Lastrow = Cells(Rows.Count, "E").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
 
Set Lastrow = Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
 
Set Lastrow = Cells(Rows.Count, "G").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
 
Set Lastrow = Cells(Rows.Count, "H").End(xlUp).Offset(1, 0)
 Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
  
Set Lastrow = Cells(Rows.Count, "I").End(xlUp).Offset(1, 0)
  Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
  
Set Lastrow = Cells(Rows.Count, "J").End(xlUp).Offset(1, 0)
  Lastrow.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
 
 
 
 
 
 
 
 End Sub

My one is MACRO TEST COPY