Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim X As Integer
X = Range("A6").Value
Range("A(8:B(8+X)").Copy
Range("D8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8:E(8+X)").Application.CutCopyMode = False
SequenceCreator2.Sort.SortFields.Clear
SequenceCreator2.Sort.SortFields.Add Key:=Range("C8"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With SequenceCreator2.Sort
.SetRange Range("C8:E(8+X)")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub