copy & paste in loop

[tonnywan]

What I need to achieve is as the second column below. I am a noob to VBA so any help will be much appreciated.
<code>abc1200 abc1200
MACHINE
supplier
cost
address
invoice number

abc2400 abc2400
MACHINE
supplier
cost
address
invoice number
.
.
.</code>The code from recording are as below. Just need to repeat in select range
ActiveCell.Offset(0, -1).Range("A1").Select Selection.Copy ActiveCell.Offset(0, 1).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(6, -1).Range("A1").Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(0, 1).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(6, -1).Range("A1").Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(0, 1).Range("A1").Select ActiveSheet.Paste

 

[tonnywan]

Format should be like this

abc1200 abc1200
MACHINE
supplier
cost
address
invoice number

abc2400 abc2400
MACHINE
supplier
cost
address
invoice number
.
.

 

[tonnywan]

Format should be like this

abc1200 abc1200
MACHINE
supplier
cost
address
invoicenumber

abc2400 abc2400
MACHINE
supplier
cost
address
invoicenumber
.
.