macro to copy into different worksheets

I have a excel work*** which shows a list like below.

Directory of C:\Sarah\files\Dec04

09/02/2005 13:30 6,312 Dec04.sav
1 File(s) 6,312 bytes

Directory of C:\Sarah\code\Admissions\0001

20/04/2004 14:45 290,929,896 adm0001.sav
1 File(s) 290,929,896 bytes


What I want a macro to do is to look down this work*** and select each
record on the list. I.E find the line starting with the word Directory,
selecting all the lines below until it gets to another line starting with
Directory, it then pastes this into a different work***. then goes back and
selects the next record etc. The distance between the rows containing
"Directory" can vary in length.
I am not very experienced in Visual Basic and I can not get it to select the
range of rows I need.
.