Problem with setting range in Macro

Hello,

I have written the following macro that is not working as intended:

Sub ConversionRange()

Dim myRange As Range
Dim cRange As Range

Set myRange = Sheets("SAP Refined Data").Range("1:1")
Set cRange = myRange.Find(What:="Cost Element").Offset(1, 0).Range(Selection, Selection.End(xlDown))

myRange.Select

End Sub

When activated, what I need the macro to do is go the worksheet "SAP Refined Data" and select the data below the cost element heading. However whenever I activate the macro from another worksheet I get the "Run-time error '1004': Application-defined or object defined error" message.

Can anyone point out what I might be doing wrong?

Thanks
floridagunner