I would suggest that you sort the original so that the store lines
appear in blocks. Then use you macro to check on the contents of the
cells. If a new store is encountered use
workbook.open filename:= StoreA.xls
If this workbook doesn't already exist use
Workbooks.add
Activeworkbook.saveas filename:= StoreA.xls
Then copy the data across
Rows(N).copy destination: =
Workbooks("StoreA.xls").sheets("Sheet1").cells(655 36,1).end(xlup).offset(1,0)
--
mrice
Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile:
http://www.excelforum.com/member.php...o&userid=10931
View this thread:
http://www.excelforum.com/showthread...hreadid=546033