Copy Pasting data from one excel workbook to another using vba

HI
try the following codes. change sheet name and workbook name if they are different.

Sub transpose()
Dim x As Long
x = Workbooks("Old.xls").Worksheets("Data").Cells(Rows.Count, 4).End(xlUp).Row
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="wahaj.xls"
Workbooks("Old.xls").Worksheets("Data").Range("D9:BX" & x).Copy
Worksheets("Sheet1").Range("D2").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , transpose:=True
ActiveWorkbook.Save
MsgBox "complete"
End Sub

Ravi