If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Put it in a module change the destination sheet to where you want it to
gofire from the source sheet.
If all else fails after your attempts, send to my email below
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jorge" wrote in message
...
Don,

What do I do with this code...sorry, I know Excel fairly ok but the
programing part I really don't know much, or doing macros for that matter.
Sorry to ask you something I'm sure is quite basic.

Thanks,


"Don Guillett" wrote:


Sub rearrangedata()
lr = Cells(Rows.Count, "a").End(xlUp).Row
j = 1
For i = 1 To lr Step 7
Cells(j, 2) = Cells(i, 1)
Cells(j, 3) = Cells(i + 1, 1)
Cells(j, 4) = Cells(i + 2, 1)
Cells(j, 5) = Cells(i + 4, 1)
j = j + 1
Next i
End Sub

Sub rearrangedataothersheet()
lr = Cells(Rows.Count, "a").End(xlUp).Row
j = 2
With Sheets("sheet9")
For i = 1 To lr Step 7
.Cells(j, 1) = Cells(i, 1)
.Cells(j, 2) = Cells(i + 1, 1)
.Cells(j, 3) = Cells(i + 2, 1)
.Cells(j, 4) = Cells(i + 4, 1)
j = j + 1
Next i
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jorge" wrote in message
...
Hi, I would like to know if you have any idea to do the following:

I have a set of data organized in the following fashion:

Column A
Row1: Name
Row2: Company
Row 3: Phone
Row 4: Address
Row 5: City
Row 6: State
Row 7: Country
Row 8: Name2
Row 9: Company2
Row 10: Phone2
Row 11: Address2
Row 12: City2
Row 13: State2
Row 14: Country2

Now, I want to regroup this information differently and just use some
of
it
in a different sheet. I want to organize it in columns as follows:

Column A Column B Column C Column D
Name 1 Company 1 Phone 1 City
1
Name 2 Company 2 Phone 2 City
2
Name 3 Company 3 Phone 3 City
3
Name 4 Company 4 Phone 4 City
4

Any ideas?

Thank you