Recorded macro is having copy and paste error

I am getting an error on this. The code and also the trouble area is posted. What I did is copy a column of data, went to the bottom right cell of a table, hit tab to add new row, then paste special, paste as values and transpose. The error message is PasteSpecial method of Range class failed. How can this be corrected?

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("R2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("R2:R170").Select
    Selection.Copy
    Sheets("DATA").Select
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 1
    Range("Ex_Data[[#Headers],[Macrocycle]]").Select
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("Calculator").Select
    Application.CutCopyMode = False
    Range("W1").Select
End Sub

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True