懂得宏的高手请进

代码我已经有了，怎么弄
Sub aaa()
Dim i, j, k, m As Integer
k = 6
j = 1
i = 1
m = ActiveSheet.UsedRange.Rows.Count
Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal

Cells(1, 4).Value = Cells(1, 1).Value
Cells(1, 5).Value = Cells(1, 2).Value
For i = 2 To m
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(j, k).Value = Cells(i, 2).Value
k = k + 1
Else:
j = j + 1
k = 5
Cells(j, 4).Value = Cells(i, 1).Value
Cells(j, 5).Value = Cells(i, 2).Value
k = k + 1
End If
Next
End Sub

懂得TC的高手请进 懂得硬件的高手请进 懂得高等数学的高手请进......... 懂得美容的高手请进 懂得声卡的高手请进!!!!! 懂得笔记本电脑无线上网的高手请进!!! 懂得dreamweaver 8的高手请进 懂得法律的请进！ 懂得担保法的请进！！ 懂得感情的请进.!