How to read in server name, software name and version from a text file

[SamT]

Assumes list is currently in column "A" of Excel Sheet. Code goes in Worksheet Code page

Sub TransposeBySeven()
Dim Rw as Long, Col As Long
Col = 3
Application.ScreenUpdating = False

For Rw = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 7
   Cells(Rw, "A").Resize(1, 7).Copy Cells(1, Col)
   Col = Col + 2
Next Rw

Application.ScreenUpdating = True
End Sub