Run-time error '1004' Select Method of Range Failed

Hi,

I would appreciate any help I get with this error message. I am
trying to copy cells in a worksheet to another worksheet in the same
workbook. I created the code with macro and need to assign a command
button to this code.
The row Range ("B53:B58"). Select is highlighted in yellow. I am a
novice user so haven't got a clue of what this is.
Please see code below:

Private Sub CommandButton1_Click()
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=26
Range("B53:B58").Select
Selection.Copy
Sheets("Shell").Select
Range("C10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=-7
Range("B24:B29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("D10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=-19
Range("B2:B7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("E10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=32
Range("B46:B51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("F10").Select
ActiveSheet.Paste
End Sub

Thanks in advance!