Run-time error '1004': Select method of Range class failed.

Hello,

I have a button in one of my sheets that calls on a Sub in Module1 and the following is the code. I am using variables to set ranges, but I am getting this error. Please assist.

Sub MoveData()

Dim SheetName As String
Dim DataARange As Range
Dim DataBRange As Range

Set DataARange = Range(Range("DataA").Value)
Set DataBRange = Range(Range("DataB").Value)

Sheets("NoName1").Select
SheetName = "Paper " & Range("A19").Value
        Sheets("NoName2").Select
        Range("B20:B31").Select
        Selection.Copy
        Sheets(SheetName).Select
        DataARange.Select                                    'This is where the error occurs.
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
        Sheets("NoName2").Select
        Range("C20:C31").Select
        Selection.Copy
        Sheets(SheetName).Select
        DataBRange.Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True

Thanks in advance.