Hi,


Please use the below mentioned macro but you have to put "End" in the
Cell A41 of Sheet1 otherwise the macro will go in never ending loop.


Sub Paste()
Sheets("Sheet1").Select
Range("A3").Select
Sheets("Sheet2").Select
Range("A10").Select
ActiveSheet.Previous.Select

Do Until ActiveCell.Value = "End"
ActiveCell.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
ActiveSheet.Previous.Select
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Copy
ActiveSheet.Next.Select
ActiveCell.Offset(3, 0).Range("A1").Select
ActiveSheet.Previous.Select
Loop
Application.CutCopyMode = False

End Sub