Sum Lastrow formula!!

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