Need to copy from one sheet to another with a twist –

Always Sheet 1 Column A to Sheet 2 Columns A B and C

IE:

Sheet 1 A9, A21, A33, A45 to Sheet 2 A1, A2, A3, A4

Sheet 1 A13, A25, A37, A49 to Sheet 2 B1, B2, B3, B4

Sheet 1 A17, A29, A41, A53 to Sheet 2 C1, C2, C3, C4

The cells are many rows say 500 to 5000, so need to repeat to end of data in Sheet1 and transfer to sheet 2, I would prefer VBA solution if possible. I can do via formula and VBA input formulas but looking for routine to transfer the cells over if at all possible! As speed will be un-usally critical for me on this one - thus the post.

The data falls into say same locations so the same cells address will follow sequence IE

Next will be:

Sheet 1 A45, A57 to Sheet 2 A5, A6

Sheet 1 A61, A73 to Sheet 2 B5, B6

Sheet 1 A65, A77 to Sheet 2 C5, C6

And so on to end of data range, I hope I have explained OK to understand this one

Many thanks guys

Jack in the UK