I have more than 11000 rows data in column "C" Like

C1 name
C2 Address line 1
C3 Address line 2
C4 Address line 3
C5 Address line 4
C6 Email
C7 Tel. No.

than after every 7 rows there are 2 or 3 rows are blank and there may be
some time more than 7 rows data like upto 11000 rows

What i want is to Transpose them.

Like

name ,Address line 1,Address line 2,Address line 3,Address line 4,
Email,Tel. No.
name ,Address line 1,Address line 2,Address line 3,Address line 4,
Email,Tel. No.
name ,Address line 1,Address line 2,Address line 3,Address line 4,
Email,Tel. No.

it takes more time so i created macros from record macro but it not working
i don't no more above VBA.

Sub Macro1()
Range("C1:C7").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("E2").Select
Application.CutCopyMode = False
End Sub

Pls Help me.

thanks
tiya