Macro to change entries in last column to a sum formula.

[jamesbyrne]

Hi,

I am trying to create a macro to change cells in the final colum in all worksheets whith a sum formula if they already contain a numerical entry. The formula will sum from column c to the second last column (left adjacent) in the same row.

Here is where I'm at so far which I'm thinking is a fair bit off. Any help is greatly appreciated.

Sub delete_rows()
Dim rw As Long, i As Long
rw = Cells(Rows.Count, 1).End(xlUp).Row
For i = rw To 9 Step -1
 If Application.Sum(Cells(i, 3).Resize(1, 7)) = 0 Then
    Rows(i).Delete
 End If
Next
End Sub

 

[jamesbyrne]

Apologies - please ignore the code in this post as it is for a different macro. I do not have the facility to delete it. I am still trying to create the macro as stated in the first post.