Transposing variable length data sets from a single column to rows

Very New to VB, I have tried some of the other suggestion online but didn't quite get there.

I would like to transpose variable data sets from a single column to rows based on splitting data by certain text, that being every new set of data starts with "Top"

Example Data all in column A

Top
Name
Address
Number
Email
Sec1
Sec2
MoreInfo
Top
Name
Address
Number
Email
Sec1
Sec2
Sec3
Sec4
MoreInfo

Results I am trying to obtain are as follows in a seperate sheet [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]

[tr]

[TD="width: 87"]Top[/TD]
[TD="width: 87"]Name[/TD]
[TD="width: 87"]Address[/TD]
[TD="width: 87"]Number[/TD]
[TD="width: 87"]Email[/TD]
[TD="width: 87"]Sec1[/TD]
[TD="width: 87"]Sec2[/TD]
[TD="width: 87"]MoreInfo[/TD]
[TD="width: 87"] [/TD]
[TD="width: 87"] [/TD]

[/tr]

[tr]

[td]

Top

[/td]

[td]

Name

[/td]

[td]

Address

[/td]

[td]

Number

[/td]

[td]

Email

[/td]

[td]

Sec1

[/td]

[td]

Sec2

[/td]

[td]

Sec3

[/td]

[td]

Sec4

[/td]

[td]

MoreInfo

[/td]

[/tr]

[/TABLE]

Any help would be greatly appreciated