Past a range of cells with a specified row width

Hi,

I have a code below that I did a macro recording on to copy a range of cells in a row directly below the copied row. I linked the code to a command button so that every time I click the command button it adds a new row. I cannot seem to extend on the code so that when copied, it copies it to a row height of 140. Also when copying, it narrows the Legend row cutting of some of the text. My code I'm using is

Sub Add_New_CA()
'
' Add_New_CA Macro
'

'
    Range("A130:T132").Select
    Selection.Copy
    Range("A130").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

End Sub]