マクロ 降順のソートをすると全体がずれてしまいます

すみません、以前に下記のマクロを教えて頂いたのですが、(A列～O列にデータがあります)、B列～L列の範囲はそのままでソートできます。しかし、M列～O列のところがずれてしまいます。どのように、修正したらよいでしようか、教えて頂けませんか。
なお、区切りについても、２６はかわらないのですが、その後のことろが３８に変更しなければなりません。そこも、修正は、２２９→２１９に、４０→３８に、１４→１２に変更でいいのでしようか。どうでしょうか。
Sub test()
　　Dim iSize As Long
　　Dim iStart As Long
　　iSize = 26
　　iStart = 3
　　Do While iStart <= 229
　　　　With ActiveSheet.Cells(iStart, "A")
　　　　　　.Resize(iSize, 14).Sort Key1:=Range("K:K"), Order1:=xlDescending
　　　　　　.Value = 1
　　　　　　.AutoFill Destination:=.Resize(iSize), Type:=xlFillSeries
　　　　End With
　　　　iStart = iStart + iSize
　　　　iSize = 40
　　Loop
End Sub

質問者からの補足コメント

• 

  https://oshiete.goo.ne.jp/qa/10361868.html で質問した時の回答でこれを使って処理出ましたので、その後で数値の変更などあってこれでよいのか、相談しているところです。よろしくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/03/22 09:54

No.2 ベストアンサー 回答者： あらっそ 回答日時： 2018/03/22 10:32

229は最終ブロックの開始行数

40は2ブロック目以降の行数
14はソートしたい列の右端（14はN列）

かと。

要件に合わせて修正してみてください。

この回答へのお礼

ありがとうごいました。できました。その意味でしたか、初心者ですみません。

お礼日時：2018/03/22 15:32

No.1 回答者： mike32 回答日時： 2018/03/21 16:48

話しの流れがわからないのですが、以前の質問の続きでしょうか？

でしたら、そのときの質問のＵＲＬを教えてください。
どんな表構成のものをソートしようとしているのかわかりません。

この回答へのお礼

ありがとうございました。

お礼日時：2018/03/22 15:33