VBA Problems - Written in 365 / Issues on 2010

Hello,

Can anybody help me please? I have programmed an extensive workbook, and when transferring to an excel 2010 machine, it is showing an error code with the following line of code:

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( _
"F133:F335"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("D133:G335")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

It was recorded with macro recorder hence the long winded nature.

Can anybody please help?

Thanks,

Craig