Run-time error '1004': Method 'Range' of object'_Global'failed

[NicoilGreco]

Hi all and thanks in advance for your precious help. I'm trying without success to run the code below. Is there anyone who knows what's wrong?


Sub try1()


Dim ex_date As Range


Set ex_date = Range(Range("r51").Column, Range("r51").End(xlDown).Row)


Application.ActiveWorkbook.ActiveSheet.Range("ex_date").Select
Selection.Copy
Range("b51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("b51").Select
Application.CutCopyMode = False


End Sub

 

[Sixthsense]

[COLOR=darkblue]Sub[/COLOR] try1()
[COLOR=darkblue]Dim[/COLOR] ex_date [COLOR=darkblue]As[/COLOR] Range

[COLOR=darkblue]Set[/COLOR] ex_date = Range(Range("r51"), Range("r51").End(xlDown).Row)

ex_date.Copy
Range("b51").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = [COLOR=darkblue]False[/COLOR]

[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]