Find Filled cell

[pboltonchina]

Hi Everyone,
I need to be able to find the black filled cell in column A and select the range from the active cell to the last used cell and copy it below the existing range. Then I can run the macro to add a week and print it. I have a code which does this now by specifying the number of rows used. But if I change the number of people in the list I have to edit the macro, I would like it to be dynamic.

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
663
664	Daily check in sheet for week ending:							23/04/2010
665
666	NAME	SAT	Fire	SUN	Fire	MON	Fire	TUES	Fire	WED	Fire	THUR	Fire	FRI	Fire
667	name 1
668	name 2
669	name 3
670	name 4
671	name 5
672	name 6
673	name 7
674	name 8
675	name 9
676	name 10
677	name 11
678	name 12
679	name 13
680
681	Fire co-ordinators signiture									Date
Checklist 2010

 

[pboltonchina]

Bump