Try this.
With Worksheets("Sheet1")
If IsEmpty(.Cells(.Rows.Count, 15)) Then
With .Cells(.Rows.Count, 15).End(xlUp)
.Offset(2, 0).Formula = "=Sum($F$15:" & _
.Address & ")"
End With

"SRV....Frenzy" wrote:

hi all,

please help me

ActiveWorkbook.ActiveSheet.Range(Cells(4, 7), Cells((mData + 3),
7)).Formula = "=SUM()"

and

ActiveWorkbook.ActiveSheet.Range("F15").Formula =
"=SUM(range.cells(4,7),cells((mData+3),7))"

both are not working

all i want to do is add the numbers in the column but the numbers can
be more and less that is why i have applied range.cells

can anyone help

any ideas??