prova con qualcosa tipo
codice:
Cells.Find(What:="Start of field", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
riga = ActiveCell.Row
colonna = ActiveCell.Column
ActiveCell.Offset(1, 0).Range("A1").Select
do while ActiveCell<>"end of field"
    Selection.Copy
    ActiveCell.Offset(0,1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1,-1).Range("A1").Select
loop