User would copy information from another workbook, select a cell in Sheet1 and run the macro. The macro is supposed to paste the info in Sheet3 then take the info in a1 cut and paste it into the selected cell in Sheet1 then delete row 1 on Sheet3. The selected cell in Sheet1 one would then move down 9 rows and the macro would go back to see if there was information on Sheet3 A1 if so it would repeat. If not it would stop.

What I have so far:

Sheet3.Activate
Range("A1").Select
ActiveSheet.Paste
ActiveCell.Select
ActiveCell.Cut
Sheet1.Activate
ActiveCell.Select
ActiveSheet.Paste
ActiveCell.Offset(9, 0).Select

Any help would be appreciated.