Dim rng as Range
set rng = Columns(3).specialCells(xlConstants,xlNumbers)
set rng1 = Intersect(rng.EntireRow,Columns(4))
rng1.formula = "=" & rng1(1,-1).Address(0,0) & _
"*" & rng1(1,0).address(0,0)

Will put in your formulas

Zip the text file and send it to me and I will suggest a method to do the
rest.

--
Regards,
Tom Ogilvy



"tjohn176" wrote in message
...
Still looking for a little help with any part of my problems with
summing and/or subtotaling. I would like to be a contributor instead
of a receiver of info. on this forum, but it is a slow learning
process.


---
Message posted from http://www.ExcelForum.com/