Adding conditions and variables to lengthy code

Hey everyone! I'm fairly new to coding, especially in Excel, and I want to code a bit a grunt work so I wouldn't have to do it. Here are some example snippets of my code:

Sub MoveScores()
Range("A2").Cut Destination:=Range("B1")
Range("A4").Cut Destination:=Range("B3")
...........
Range("A52").Cut Destination:=Range("B51")
Range("A54").Cut Destination:=Range("B53")
End Sub

Rows("3:5").Select
Selection.Delete Shift:=xlUp
...........
Rows("53:55").Select
Selection.Delete Shift:=xlUp

These macros are effective but, as you can see, terribly inefficient. They also have no variance for the length of the document etc. I tried coding these using a While statement, but it just didn't work out.

Can anybody help me improve my code? I would be very grateful!

Sub MoveScores()
Range("B1")=Range("A2")

End Sub

Rows("3:5").Delete Shift:=xlUp

Maybe supply a sample workbook showing what you want accomplished