マクロ 昇順のマクロを追加したい

このコードの最後に、O列３行目～O列３００行までの範囲だけを昇順のソートのコードを付け加えたいのですがどのように追加したら良いか、教えて頂けませんか。よろしくお願いします。

Sub Macro１()
'==宣言など

Dim i As Long
Dim buf As String

'==処理

With ActiveSheet.Rows("3:300")

'ActiveSheet.UsedRange と ActiveSheet.Rows("3:300")　が交わる範囲だけ値化
With Intersect(.Parent.UsedRange, .Cells)
.Value = .Value
End With

End With

With ActiveSheet
'連続データの生成
With .Range("A3")
.Value = 1
.AutoFill Destination:=.Resize(26), Type:=xlFillSeries
End With

For i = 29 To 218 Step 38
With .Cells(i, "A")
.Value = 1
.AutoFill Destination:=.Resize(38), Type:=xlFillSeries
End With
Next i

buf = .Range(.Cells(2, "O"), .Cells(.Rows.Count, "O")).Address(0, 0)
.Range("M1").Formula = "=COUNT(" & buf & ")"
End With

End Sub

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

• 回答は①です。説明が分かりづらくてすみません。
  
  ① O列のみ３行目～３００行をソートする。

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

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2018/03/23 13:23

それでしたら、ソートしたいところに次の１行を書き込めば良いだけです。

「Range("O3:O300").Sort Key1:=Range("O3"), Order1:=xlAscending, Header:=xlNo」

この回答へのお礼

有難うございましたるできました、勉強になりました。

お礼日時：2018/03/23 21:37

No.1 回答者： GooUserラック 回答日時： 2018/03/23 11:53

念の為の確認ですが次のどれですか？

① O列のみ３行目～３００行をソートする。
② O列のデータを基に３行目～３００行をソートする。
③ その他（詳しく説明してください）

この回答へのお礼

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

お礼日時：2018/03/23 21:38