dim c15
c15 = Worksheets("Sheet1").Cells("C15")
for curRow = 1 to 10 do 'Adjust this as needed...
Worksheets("Sheet2").Cells(curRow,4) = c15
next curRow


Hi,
I'm writing this code offhand, I'm not testing it. I expect that there'd be
syntax errors, but you should be able to follow the general logic and
fix/modify it as required.

Good luck,
Vivek.


"pswanie" wrote:

on sheet1 cell c15 ppl enter the sales for the day (along with some other
info on other cells. those then calculate the usage of items etc) i only
need cell c15 from sheet on to be copied to sheet2 colum d downward

sheet to i got



a b c d
sales projection
date day last yr sales this yr sales
1 01/07/07 mon $1.20 ****
2 02/07/07 tues $1.20 ****
3 03/07/07 wed $1.20 ****
4 04/07/07 thur $1.20 ****
5 05/07/07 frid $1.20 ****