Transpose Macro

[b50]

Hey all,

I don't know if it is possible to write a macro for this or not.

The data I have is ordered as follows:

Name
Company
Phone
Email

Name
Company
Phone

Name
Company
Phone
Email


Note: There aren't spaces, it was just hard to read with the it all together.

The data continues in this manner for just over 1000 people, but randomly throughout the data there are some people who I don't have a phone number or email address.

I need to have this data organized in the following manner:

Name, Company, Phone, Email.

I tried using this script, and it worked except for the fact that I didn't know how to edit it for the cases when there isn't an email address or phone number.

Sub ChrisMacro()
Dim rng As Range
Dim i As Long
Dim j As Long
Set rng = Cells(Rows.Count, 1).End(xlUp)
j = 1
For i = 1 To rng.Row Step 10
Cells(j, "B").Resize(1, 5).Value = _
Application.transpose(Cells(i, "A").Resize(6, 1))
j = j + 1
Next
End Sub

As I said I am not sure if this is possible, but any help would be greatly appreciated.

Thanks!