I have a workbork that does a mdb query by Date Range. Different Date ranges
returns more or less data. I would like to have Column H to total up at end
of data. My Start of data is H5. Can someone give me some insight on how to
do this

Thanks Mike

two ways

Option Explicit
Sub sum_column_H()
Dim lastrow As Long
Dim ws As Worksheet

Set ws = Worksheets("sheet1")
lastrow = Cells(Rows.Count, "H").End(xlUp).Row
ws.Range("H" & lastrow).Offset(1).Formula = "=sum(h5:h" & lastrow & ")"
End Sub

or if you want just the value use the line below instead
ws.Range("H" & lastrow).Offset(1).Value = Application.Sum(Range("h5:H" & _
lastrow))

--


Gary


"Mike" wrote in message
...
I have a workbork that does a mdb query by Date Range. Different Date ranges
returns more or less data. I would like to have Column H to total up at end
of data. My Start of data is H5. Can someone give me some insight on how to
do this

Thanks Mike

Assuming there is nothing below your data in Column H, maybe:

Sub test2()
With Worksheets("Sheet1")
If IsEmpty(.Cells(.Rows.Count, 8)) Then
With .Cells(.Rows.Count, 8).End(xlUp)
.Offset(1, 0).Formula = "=Sum($H$5:" & _
.Address & ")"
End With
End If
End With
End Sub


Assuming there are no breaks in your data and H5 could vary, you might also
try substituting this into the above:

..Offset(1, 0).Formula = "=Sum(" & _
.End(xlUp).Address & ":" & .Address & ")"


"Mike" wrote:

I have a workbork that does a mdb query by Date Range. Different Date ranges
returns more or less data. I would like to have Column H to total up at end
of data. My Start of data is H5. Can someone give me some insight on how to
do this

Thanks Mike