Please Modify this VBA for New Requirement Or Provide a New One

[New_Here]

Hi Good Evening from Sri Lanka,

Please help if possible.

The below WAS my requirement and the solution to it is Below,

Data I had :-

Cell A1 = Phone: 81-74568943 Fax: -
Cell A2 = Phone: 51-83-9498756, 5583772359 Fax: 61-88-4932516
Cell A3 = Phone: 51-6785239556, Fax: 31-13-45225335
Cell A4 = Phone: 51-6785239556, Fax: 31-13-45225335, Mobile: -

Outcome :-

B1 = Phone
C1 = 81-74568943
D1 = Fax
E1 = - (Or N/A - Not the N/A ErrorMessage or a value! errormessage, But just the letters : N/A)
F1 = Mobile
G1 = - (Or N/A - Not the N/A ErrorMessage or a value! errormessage, But just the letters : N/A)

The Formula to get it done is below,


http://www.vbaexpress.com/forum/show...078#post360078


How should I remodel the above in

My Issue;

A1=Contact Person: James Anderson Designation: Proprietor
A2=Contact Person: Gordan Designation: Seller
A3=Contact Person: David Cameron Miller Designation: Vice President

Solution I require:

to
B1=Contact Person
C1=James Anderson
D1=Designation
E1=Proprietor

B2=Contact Person
C2=Gordan
D2=Designation
E2=Seller

B3=Contact Person
C3=David Cameron Miller
D3=Designation
E3=Vice President

?

Please Help !!!