VBA Transfering Data To Next Sheet

Hello,
I'm applying this code to transfer data from sheet 1(source) to sheet 2(destination).

Sub TransferData()
For Each cell In Range("B1", Range("B65536").End(xlUp))
Range(cell, cell.Offset(, 1)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1)
Next cell
End Sub

The problem I'm encountered is that the transfered data will always be in column A in sheet2 therefore erasing out the previously transfered data from sheet 1.Can somebody provide me with the VBacode so that the data transfer from the sheet 1 will be arrange accordinglly into sheet 2,first in column A,than column B, column C and so on.I have 31 columns.

Thanks