Copying imported data

[Kiwi den]

Not sure if this is possible, but I will ask anyway.
I have a worksheet that gets data imported from a survey form
This data is imported into Sheet 1 Row A1 through to A12

What i would like to do is once the data is imported, is to copy it to Sheet 2 rows A1 to A12, so I delete Sheet 1 info, this will allow me to import next survey
What I want is to keep data on sheet 2, but the next survey data to be copied from Sheet 1 rows A1 to A12 to Sheet 2 rows B1 to B12 and so on for all survey results Sheet 2 rows C1 to c12, Sheet 2 rows D1 to D12 etc
this is to keep a record of all results on Sheet 2, while leaving Sheet 1 clear for new imported data.

your thoughts appreciated

 

[Fluff]

How about

Sub KiwiDen()
   Sheets("Sheet1").Range("A1:A12").Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub

 

[Kiwi den]

hi thanks for this,
my bad the cells to copy are actually A2 - O2
could you please advise the code as my attempts end in failure

 

[Fluff]

Do you still want to copy them to row 1 of sheet2?

 

[Kiwi den]

Do you still want to copy them to row 1 of sheet2?

Yes please

 

[Fluff]

In that case use

Sub KiwiDen()
   Sheets("Sheet1").Range("A2:O2").Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub

 

[Kiwi den]

thanks, but it doesn't stack the records as a list under each row, ie; sheet 2 1st set of records goes from A2 - O2, the next set goes from sheet 2 P2 - AE2
rather than to A3 - O3 and A4 - O4 etc

 

[Fluff]

Please see your reply in post#5

 

[Kiwi den]

ok yes misunderstood, I wanted them to go to row 1
then to row2, then row3 etc to form a list

 

[Fluff]

Ok, how about

Sub KiwiDen()
   Sheets("Sheet1").Range("A2:O2").Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub