làm thế nào để thực hiện nhiều phép cộng trừ trong code VBA (1 người xem)

[kulyvn]

Mình có đoạn code thế này nhưng khi thực hiện phép cộng trừ nhiều ô (f14+f22-f32) thì không hiển thị được kết quả là thế nào?
Sub kysau()
Application.ScreenUpdating = False
Range("A6:AN" & Range("A65000").End(3).Row + 1).ClearContents
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\TongHop.xls;Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
Range("B6").CopyFromRecordset cn.Execute("SELECT f10,f11,f12,f13,f2,f4,f14+f22-f32 FROM [THA$A10C60000] where f100 =1 or f101 =1 or f102 =1 or f103 =1 or f104 =1 or f105 =1 or f106 =1")
Range("A6:A" & Range("B65000").End(3).Row).Value = "=row()-5"
Range("A6:AN" & Range("B65000").End(3).Row).Borders.LineStyle = xlContinuous
Range("A6:AN60000").Select
ActiveWorkbook.Worksheets("KY SAU").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("KY SAU").Sort.SortFields.Add Key:=Range("Q6:Q60000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("KY SAU").Sort.SortFields.Add Key:=Range("E6:E60000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("KY SAU").Sort.SortFields.Add Key:=Range("D660000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("KY SAU").Sort
.SetRange Range("A6:AN60000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub