Excel VBA で集計合計を高速化するには

質問

処理速度の高速化についてご助言をお願いします。
１２枚（月毎）のシートに
　約７００行と１０列の表 （期間、担当者、納入先(D)、商品(E)、売上数量(F)、売上単価(G)、売上金額(H)、売上原価(I)、粗利益額(J)）　⇒上のアルファベットは、列名
納入先名D毎と商品名E毎を基準に検索し、同種のものがあれば、F～Jまでをそれぞれ加算していく。

私のコードは、
１、まず初めに１２ヶ月のデータを作成済みのシート「集計」へコピーする。

'----------納入先名、商品名の列判定-----------
Select Case Range("AC1").Value　　’納入先名、商品名どちらで処理するかを選択
Case 4
CoN = "D": C = 30　　　　　　　’”D"は元データの納入先の列と３０は合計を入力する列数
Case 5
CoN = "E": C = 31　　　　　　　’”D"は元データの商品名の列と３１は合計を入力する列数

End Select
LaRow = Worksheets("集計").Cells(Rows.Count, C).End(xlUp).Row
Worksheets("集計").Range("AN2:AS" & LaRow + 1).ClearContents
'----------集計-----------
' For Sn = 1 To 12　　　’各月のデータをシート「集計」へコピー
SnLaRow = Worksheets(Sn).Range(CoN & Rows.Count).End(xlUp).Row
Pst = Worksheets(Sn).Range("A2:" & "J" & SnLaRow)
LaRow = Worksheets("集計").Range(CoN & Rows.Count).End(xlUp).Row
LaRow = LaRow + 1
Worksheets("集計").Range("A" & LaRow & ":" & "J" & LaRow + SnLaRow - 1) = Pst

Next Sn

これも遅いときは、約3秒かかります。

２、コピーしたデータを下に納入先（約400）、商品名（約５００）を検索しながら計を求める。

SnLaRow = Worksheets("集計").Range("A" & Rows.Count).End(xlUp).Row　　’コピー後のデータの最終行
LaRow = Worksheets("集計").Cells(Rows.Count, C).End(xlUp).Row

For NS = 3 To LaRow　　　’ LaRowは、納入先または商品名の最終行
With Worksheets("集計")
For K = 6 To 10　　　合計したデータはSumIf関数によってAN～ASの列に
.Cells(NS, K + 35).Value = Application.WorksheetFunction.SumIf(.Range(Cells(2, CoN), Cells(SnLaRow, CoN)), Cells(NS, C).Value, (.Range(Cells(2, K), Cells(SnLaRow, K))))
Next
End With
Next NS

こちらの速さは、約4秒かかります。

よろしくお願いします。

回答No.1

GOCHISOUda

内容については触れません。

変数をきちんと宣言して、Variantを避ける。
ScreenUpdatingで画面を固定する。
RangeよりCellsの方がすっきりするのでは。

＞CoN = "D": C = 30　　　　　　　’”D"は元データの納入先の・・・・・・
の３０～’のスペースを止める。（見た目は犠牲）
CoN = "D": C = 30
’”D"は元データの納入先の・・・・・（次の行とか）

With Worksheets("集計")は
SnLaRow = Worksheets("集計").Range("A" & Rows.Count).End(xlUp).Row　　’コピー・・・
の前からで
SnLaRow = .Range("A" & Rows.Count).End(xlUp).Rowのようにする。

補足

GOCHISOUda さん　早速の回答ありがとうございます。
予め、すべてを質問すればよいものを一部分を投稿し、失礼しました。申し訳ございません。
実は、変数もScreenUpdatingも設定しています。ただ、
「RangeよりCellsの方がすっきりするのでは」の件は、そのときに使いやすいほうを今までは使っていました。このコードについて再考します。

体感的にもう少しせめて0.5秒以内とかには、むりなのでしょうか？