Sum the column

[parscon]

This code will sum the numbers that start from row E on column 20 , now I have a problem that when I have only 1 row that mean data only on E20 it will not work . that mean If just I have 1 row write the number of E20 on E21.

Hope you will understand what I need .

Thank you.


Sub TEST()

Dim Rng As Range
Dim c As Range
Set Rng = Range("E20:E" & Range("E20").End(xlDown).Row)
Set c = Range("E20").End(xlDown).Offset(1, 0)
c.Formula = "=SUM(" & Rng.Address(False, False) & ")"
End Sub

[JKwan]

May not be the best but it does the job....


Sub test()
Dim Rng As Range
Dim c As Range

On Error GoTo HandleError
Set Rng = Range("E20:E" & Range("E20").End(xlDown).Row)
Set c = Range("E20").End(xlDown).Offset(1, 0)
c.Formula = "=SUM(" & Rng.Address(False, False) & ")"
Exit Sub

HandleError:
If Err.Number = 1004 Then
Range("E21") = Range("E20")
Else
Msgbox "Error Encountered - " & Err.Description
End If
End Sub

[parscon]

Thank you very much for your help

[mancubus]

Range("E20").End(xlDown).Offset(1) = Application.Sum(Range("E20:E" & Range("E20").End(xlDown).Row))

[parscon]

Your code does not work.
Thankyou

[Aussiebear]

Your code does not work.
Thankyou

Which code does not work? Please be more descriptive when replying to others who are trying to assist you.

[mancubus]

Your code does not work.Thankyouyes it does.
Sub col_tot() Range("E20").End(xlDown).Offset(1) = Application.Sum(Range("E20:E" & Range("E20").End(xlDown).Row))End Sub