すいません、
こないだお世話になったものです。
よろしくお願いいたします。

Sheet4のＡ列に着順があります。
その着順の行を絶えず33行におきたいのです。
例
　　　Ａ列

33行　着順
34行
35行　データ有り
36行　データ有り

しかし
33行目の着順の行が変わるときがあり
データがうまく取得できなく
統一したいためです。

（例　１）
32行着順あるときは、

33行になるようにする
　　　Ａ列

32行　着順
＞着順の上に行追加
33行着順
　

（例　２）
36行着順あるときは、

33行になるようにする
　　　Ａ列

36行　着順
＞着順の上に行削除
33行着順

33行着順にない場合は、
着順の上の行を
追加
削除
で調整したいのです。

着順を見つけるコードは、
前に教わったこちらを使うのだと
思います。
＞With Application
      m = .Match("着順", .WorksheetFunction.Index(v, 0, 1), 0)

　　追加コード

    End With

すいませんが、
追加コードの
ご指導お願いいたします。

ＯＳ　Windows7
エクセル　２０１０


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

    With Application
        m = .Match("着順", .WorksheetFunction.Index(v, 0, 1), 0) - 33
        
        Select Case m
            Case Is > 0 '削除
                Rows(33).Resize(m).Delete

            Case Is < 0 '挿入
               Rows(33).Offset(m).Resize(-m).Insert 
        End Select
    End With


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

 半平太様
又ご指導頂きありがとうございます。
うまく取得できました。
＞Select Case m
を使うんですか。
勉強になりました。