Range("A2:E2").Select
Selection.Copy
Range("A4:E4").Select
While ActiveCell.Value <> "" And Range("A2").Value <> ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Paste
Range("a1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
End Sub