Hi all,

I'd like to create a macro that copies one cell of a range, pastes that cell on another sheet, then clears the cell pasted into. Takes the next cell in the range, and then copies it into that same cell previously used.

For example this would be the operation, I'm just not sure how I could get it to loop. 

Select. Sheet1.Range("a2")
Selection.Copy
Sheets("Sheet3").Select
Range("D1").Select
ActiveSheet.Paste
Sheet3.cells.clear

Select.Sheet1.Range("a3")
Selection.Copy
Sheets("Sheet3").Select
Range("D1").Select
Activesheet.Paste
Sheet3.Select.Clear

then onto Sheet1.Range("A4")
Thanks for any help!