EXCEL2003 VBA求助

  想用VBA做个按钮，将C列和E列单元格中数值相同的单元格所在行复制出来，存到一张新EXCEL中，并以C列和E列单元格中数值命名。

如图，比如都是编号“1004” 且 都是“重庆”，就将它所在行 存到一张新的excel中，并命名为“1004重庆”

生成新表  1004重庆

知道的朋友分享 下  谢谢！

Sub test()
'Application.ScreenUpdating = False

Dim i, j, k As Integer
Dim ShtO As Worksheet, ShtN, ShtTmp As Worksheet
j = Range("A60000").End(xlUp).Row
Set ShtO = ActiveSheet
Range("F1") = "tmp"
Range("F2").FormulaR1C1 = "=RC[-3]&RC[-1]"
Range("F2").AutoFill Destination:=Range("F2:F" & j)
Range("F1:F" & j).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set ShtN = Sheets.Add
ShtO.Range("F1:F" & j).Copy Range("A1")
k = Range("A60000").End(xlUp).Row
Set ShtTmp = Sheets.Add
For i = 2 To k
ShtTmp.Cells.ClearContents
ShtO.Range("A1:F" & j).AutoFilter Field:=6, Criteria1:=ShtN.Cells(i, 1)
ShtO.Range("A1:F" & j).Copy ShtTmp.Range("A1")
ShtTmp.Copy
ActiveWorkbook.SaveAs ShtN.Cells(i, 1) & ".xls"
ActiveWorkbook.Close 0
Next i

'Application.ScreenUpdating = True
End Sub