Cheers for the insight into the structure

This should do the trick

:======================

Sub CopyData()

i = 1: j = 1
Sheets("Home").Select
[A2].Select

Do Until IsEmpty(ActiveCell)

Do Until ActiveCell i Or IsEmpty(ActiveCell)
Sheets("Destination").Cells(j + 1, i + 1) = _
ActiveCell.Offset(0, 2).Value
j = j + 1
ActiveCell.Offset(1, 0).Select
Loop

i = i + 1: j = 1
Loop

End Sub

:==============================

http://www.excel-ant.co.uk