Macro For Transposing Data In Cells

I need a macro that can do this in 1run.

Turn a sheet from, Row 1 would repeat as column A.
Acupressure Allergies Anxiety - Depression accupressure alergies anxiety therapy accupressure therapy allerg relief anxiety treatment acupressure allergen depressed acupressure chiropractic allergic depression treatment acupressure doctors allergies treating anxiety acupressure massage allergies asthma treatment for depression acupressure practitioner allergies cats Bipolar acupressure therapy allergies dogs Bi polar acupressure treatment allergies hives Dysthymic disorder chinese acupressure allergies medicine