Please Help

[Bassai]

Hi

I need to move data from 5 rows in one column and to separate columns. The data looks like this

[TABLE="width: 565"]
<colgroup><col><col><col></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Infinity Auto Import[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20 Puriri Street, New Lynn, Auckland[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]09 9512882[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]View dealer listings[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]IV Cars[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]90 Portage Road, Otahuhu, Auckland[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]09 9512843[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]But needs to be sorted like this:[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Column A[/TD]
[TD]Column B[/TD]
[TD]Column C[/TD]
[/TR]
[TR]
[TD]Infinity Auto Import[/TD]
[TD]20 Puriri Street, New Lynn, Auckland[/TD]
[TD]09 9512882[/TD]
[/TR]
[TR]
[TD]IV Cars[/TD]
[TD]90 Portage Road, Otahuhu, Auckland[/TD]
[TD]09 9512843[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]I would appreciate your help[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[ranman256]

adjust as needed...

Sub ParseFile()
Dim vFile, vLine
Dim i As Integer
Const Q = """"
vFile = "C:\temp\textfile.txt"
Range("a2").Select
i = 1
Open vFile For Input As #1 
While Not EOF(1)
  Line Input #1 , vLine
  vLine = Trim(vLine)
  
  If InStr(vLine, "View dealer listings") > 0 Then vLine = ""
  
    If vLine <> "" Then
        ActiveCell.Offset(0, i - 1).Value = vLine
        
        i = i + 1
        If i = 4 Then
          i = 1
          ActiveCell.Offset(1, 0).Select  'next row
        End If
    End If
Wend
Close 1
End Sub

 

[Bassai]

Thanks for trying to help but um.... what is this?