Roman,

try something like this

Sub Test

Dim lRow As Long
With ActiveSheet
lRow = Intersect(.UsedRange,
..Range("B:C")).SpecialCells(xlCellTypeLastCell).R ow
.Range("A2").Formula = "=SUM(B2:C2)"
.Range("A2:A" & lRow).FillDown
End With

End Sub



--
Hope that helps.

Vergel Adriano


"Roman via OfficeKB.com" wrote:

I'm trying to write a small macro just to automate an uploading process. Now
I'm not sure of the command to use but I want it to autofill down but only to
where the info stops. For example,
A B C
sum of B&C 1 1

now in A it's going to be 2 but in B&C there could be 29 rows or maybe 100
rows. i need it to autofill A down to where ever B&C stop. Thoughts?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200705/1