presto,

Assuming you data starts in row 1, and each set is 6 rows down from the
previous:

Dim rows As Long
For rows = 1 To Range("A65536").End(xlUp).Row Step 6
Cells(rows, 1).Resize(6, 1).Copy
Range("B65536").End(xlUp)(2).PasteSpecial Transpose:=True
Next rows


HTH,
Bernie
MS Excel MVP

"presto44 " wrote in message
...
Hello All,

Could anybidy help me with macros for importing txt list of the
following forward:

Company Name1
Address1
Tel1
Fax1
Email1

Company Name2
Address2
Tel2
Fax2
Email2
..........

Input to Excel file should be:
1. Company name1 - Address1 - Tel1 - Fax1 - Email1
2. Company name2 - Address2 - Tel2 - Fax2 - Email2
..........

Thank you for your assistant.


---
Message posted from http://www.ExcelForum.com/