Complex array lookup function?

Hello- I have a list of contacts in a non-columner format that I would like to organize like a csv file. The only common thing that all contacts have is an email address which comes last in each grouping. I need a way to find the word "email" to designate the last line of each contact and sort the info into columns. The info looks like this:


Curtis Acme
ACME Co. 1
615 E. Peabody Dr.
Acme, IL 61821
Phone:**217.244.21**
Fax:**217.333.28**
Email:**[email protected]
Brad Acheson
Acme County Stormwater Management
Division
827 Pick St.
Acme, IL 60187
Phone:**630‐452‐5425**
Email:**[email protected]
Troy Adams
Email:**[email protected]

Hi hodeware,

Assuming you have the values in column A (A1:A16), try inserting in C1 the following array formula, I little bit large, I know jajaja, but it seems to work.
(Introduce it with Ctrl+Shift+Enter, and then copy across and down as needed)

C1=IF(OR(COLUMN()-2>SMALL(IF(ISNUMBER(SEARCH("*@*",$A$1:$A$16)),ROW($A$1:$A$16),10^100),ROW(A1))-IF(ROW(A1)=1,0,
SMALL(IF(ISNUMBER(SEARCH("*@*",$A$1:$A$16)),ROW($A$1:$A$16),10^100),ROW(A1)-1)),SMALL(IF(ISNUMBER(
SEARCH("*@*",$A$1:$A$16)),ROW($A$1:$A$16),10^100),ROW(A1))>10^9),"",INDEX(INDEX($A$1:$A$16,IF(ROW(A1)=1,1,
SMALL(IF(ISNUMBER(SEARCH("*@*",$A$1:$A$16)),ROW($A$1:$A$16),10^100),ROW(A1)-1)+1)):$A$16,COLUMNS($A1:A1)))


Hope this helps.

Regards.