Hi,
I'm not really sure what you wish to do.

Probably along these lines?:

curRow = 15
while Worksheets("sheet1").Cells(curRow,3)<""
Worksheets("sheet2").Cells(curRow,1) = Worksheets("sheet1").Cells(curRow,3)
curRow = curRow+1
wend


This should copy all cells from C15 in sheet 1 (and downwards) to column A
in sheet 2.

Hope this helped.

"pswanie" wrote:

i have a workbook with couple sheets. sheet1 has info that gets "empty" out
every day (sales) on page2 i have dates down colum a and need the sales
from sheet1 to be carried over.

for this ill need a macro to copy info from sheet1 cell c15 to the next open
cell down ward in colum a. i allready have a macro that print and clear
the info enterd on a dayly basis.