sub doit()
Sheets("Data").Range("B53:B58").Copy Sheets("Shell").Range("C10")
Sheets("Data").Range("B24:B29").Copy Sheets("Shell").Range("D10")
Sheets("Data").Range("B2:B7").Copy Sheets("Shell").range("E10")
Sheets("Data").Range("B46:B51").Copy Sheets("Shell").Range("F10")
End Sub
or

with Sheets("Data")
.Range("B53:B58").Copy Sheets("Shell").Range("C10")
.Range("B24:B29").Copy Sheets("Shell").Range("D10")
.Range("B2:B7").Copy Sheets("Shell").range("E10")
.Range("B46:B51").Copy Sheets("Shell").Range("F10")
end with

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Fishleg" wrote in message
...
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!