macro question

[jdkaizen]

Can I record one macro for all processes I need -- (1) Select entire column [Column V], cut it and insert it somewhere else [Column N]; (2) Sort entire sheet according to header "Transaction Type' [Column N now]; (3) Perform Subtotal at each change in "Transaction Type [Column N now] and function SUM to subtotal at Transaction Quantity [Column O now]?
If not, please enlighten me. Thanks

 

[Tom Urtis]

The answer is yes, the macro recorder can do all this.

 

[jdkaizen]

I had the 2nd process not working. Every sheet has different number of rows but same number of columns. Sorting doesn't go very well.
Here's my sample code of the macro:
Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+Shift+X
'
Range("C1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Worksheets("191058017413").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("191058017413").Sort.SortFields.Add Key:=Range( _
"N2:N4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("191058017413").Sort
.SetRange Range("A1:CW10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Any suggestion?

 

[Tom Urtis]

All that code can be boiled down to this one-liner:

Worksheets("191058017413").Range("A1").CurrentRegion.Sort key1:=Range("N2"), order1:=xlAscending, Header:=xlYes

But what you are doing beyond that is not clear, especially with regards to why three cells (N2, N3, and N4) are collectively identifying your Sort key field unless they are merged which would be an ill-advised practice under just about any circumstance.