在Excel中按字母顺序dynamicsorting列表

我在Excel中遇到一些困难。 我在包含2个macros的工作簿中build立了一个呼叫logging器：

• macrosA将工作表A中的所有数据移动到工作表B中;
• macrosB自动对数据进行sorting，因此一列总是按字母顺序排列。

但是，我无法同时使这两个macros同时工作。 他们都是单独工作的，但是当我试图将一个macros写入包含另一个的工作簿中时，他们似乎相互抵消了。 我哪里错了？ 有没有一种可能的结合2macros的方法，例如？ macros在下面。

macrosA：

Sub Macro6() ' Macro6 Macro Application.ScreenUpdating = False Sheets("Logger").Select Range("B4:I4").Select Selection.Copy Sheets("DATA").Select Range("B4").Select lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row Range("B" & lMaxRows + 1).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Logger").Select Range("B4:I4").Select Selection.ClearContents End Sub 

macros观B：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("H:H")) Is Nothing Then Range("H3").Sort Key1:=Range("H4"), _ Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End If End Sub 

预先感谢您的帮助。