写一个OO的巨集。。希望tad可以帮我写下，我联系的邮箱是
kent_fu@kaga.com.cn

Sub ORDER()
'
' ORDER Macro
' Macro recorded 2/21/02 by king
'
' Keyboard Shortcut: Ctrl+Shift+R
'
Columns("A:K").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:K").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"'Ricoh & Elemex'!C1:C10", TableDestination:="", TableName:="PivotTable1"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("customer", _
"Model"), ColumnFields:="Month"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Qty")
.Orientation = xlDataField
.Name = "Sum of Qty"
.Function = xlSum
End With
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel
Selection.Copy
Sheets("total").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=0
ActiveWindow.LargeScroll Down:=-4
Range("B11").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("B21").Select
End Sub
以上EXCEL巨集转换为OO巨集如何写