Hello from Steved

Please how do I insert a row shift the cursor down one cell copy and then
paste to the above. I got about 10,000 rows to do. Thankyou.

Sub Broken()
Selection.EntireRow.Insert
Range("A61").Select
Selection.Copy
Range("A62").Select
ActiveSheet.Paste
End Sub