'copy from Sheet1 to Sheet2 and remember data
Dim rw As Long
Dim cl As Integer
Dim Dest As Range
'Set first Column destination
cl = 1 'column A
'Search first empty row
rw = ActiveWorkbook.Sheets("Sheet2").Cells(65535, cl).End(xlUp).Row + 1
'destinations
Set Dest = ActiveWorkbook.Sheets("Sheet2").Cells(rw, cl) 'where is destination 1
Dest.Value = ActiveWorkbook.Sheets("Sheet1").Range("A2") 'enetring data in to destination 1
Set Dest = ActiveWorkbook.Sheets("Sheet2").Cells(rw, cl + 1) 'where is destination 2
Dest.Value = ActiveWorkbook.Sheets("Sheet1").Range("A5") 'enetring data in to destination 2
Set Dest = ActiveWorkbook.Sheets("Sheet2").Cells(rw, cl + 2) 'where is destination 3
Dest.Value = ActiveWorkbook.Sheets("Sheet1").Range("A10") 'enetring data in to destination 3
'other destinations...