Assume worksheet containing the data  to be reorganized is
named "HaveAPint". Put the following sub in any code module, for
example the ThisWorkbook module:

Public Sub HaveAGuinnessInSeattle()
With Worksheets("HaveAPint")
.activate
.cells(1,1).select
do until isempty(activecell.value)
.cells(activecell.row,2).value = .cells(activecell.row + 1,1).value
activecell.offset(1,0).select
activecell.entirerow.delete
loop
end with
end sub

Insert 1 cell  at the top of the column
Select the whole of the column  below the blank
Copy
Move to the cell to the right of the blank  column
Paste
Move to the next column to the right and type =MOD(ROW(),2)
Copy this formula all the way down


Then select the 3 columns and go
Data/Filter/Autofilter
Click the little arrow above the new column (which contains 1s and 0s)
Select 1 or zero (whichever is opposite the second data  row)
Select all the visible data, Right click, and select delete  row
Confirm
Remove the autofilter

this is transposing too but repeated values arent repeated.
I fancy you can help  me here.

suppose i have data  in the form;
there are 2 columns on which i want to apply a code or macro.


cell_id ........neighbour_ id

1 ............ ..2
1 ............ ...3
1 ............ ...4
2 ............ ...1
2 ............ ...3
3 ............ ...1
3 ............ ...2
3 ............ ...4



this is the output i am interested in:

cell_id neighbour_id1 neighbour_id2 neighbour_id3
1 ...........2 ...........3 ..........4
2 ...........1 ...........3
3 ...........1 ...........2 ..........4

can anyone help me .
ps note;there are 4 columns in the output.
Macro would be preferred or you can tell me using VBA.

Using a Pivot Table would make short work of this.