EXCEL 2010 変動する範囲指定の方法

質問

VBAは初心者で手探りで作成しています。
宜しくお願いします。

ActiveSheet.Range("$B$34:$B$39").AutoFilter Field:=1
Set Rng = Intersect(.AutoFilter.Range.EntireRow, .Range("B34").CurrentRegion)

<知りたいこと>
項目行を除いて，B34から下がB列で範囲指定したい一覧表になっています。
最初の選択ブロックが
Range("B34:B39")
必ずブロックとブロックの間に2行分の空白行があるため，
次の選択ブロックは
Range("B42:B51")
次の選択ブロックは
Range("B54:B70")
だったとすると

この一覧表を他人が操作して行挿入，行削除を行うと
各ブロック毎の数値が変動してしまいますが
この場合，どうすれば良いのかがわかりません。

最初の選択ブロックで三行挿入されてしまい
Range("B34:B42")
次の選択ブロックは
Range("B45:B54")
次の選択ブロックは
Range("B57:B73")
になってしまった場合。
第三ブロックから
1行挿入されてしまったり
第五ブロックから
2行削除されてしまったりとケースとしてはいくらでも考えられます。

調べてもわからなかったため，こちらで質問しました。
宜しくお願いします。

回答No.2

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

[Ctrl]+[F3]名前の定義で定義した名前を
Range("定義した名前")
と指定するのも一案です。

お礼

こんにちは。
ご回答ありがとうございました。
こちらの方法，行挿入しても，行削除しても，自動的に範囲が変動するんですね。
もう少し，試行錯誤してみたいと思います。
ありがとうございました。

回答No.1

keithin

とりあえず：
sub macro1()
　dim Target as range
　dim Rng as range

　set target = range("B34")

　do until target = ""
　　activesheet.autofiltermode = false
　　application.intersect(target.currentregion, range("B:B")).autofilter
　　set rng = activesheet.autofilter.range
　’do your work
　　　rng.interior.colorindex = 4

　　set target = target.offset(rng.rows.count + 2)
　loop
end sub

＃ご質問範囲じゃないのでフォローはしませんが、他の人が「何をするかわからない」のに、「途中に２行空いている」とか「そもそもＢ３４から始まってる」とか「ブロックの範囲はcurrentregionで大丈夫（＝これも途中に２空行？と同じ）」のは絶対だとか、ちょっと危ない橋を渡っているように見えます。

お礼

こんにちは。
ご回答ありがとうございました。

Range("B34:B39"）は
rng.rows.count =6
で取得できていましたが
次のブロック以降は
set rng = activesheet.autofilter.range
のところで実行時エラー91
「オブジェクト変数またはWithブロック変数が設定されていません」と出てしまいました。

'do your work
の部分ではtureの値（数）を拾っています。
別の投稿で2週間回答がつかなかったため，少々くじけていました。
いただいたコードをもとに試行錯誤してみます。
ありがとうございました。

補足

>＃ご質問範囲じゃないので
「途中に２行空いている」のは一覧表の絶対的な決まりなので乱れることはありません。
「B34から始まっている」のも大丈夫です。
ですが，それ以外は挿入，削除が考えられるため困っていました。

>「ブロックの範囲はcurrentregionで大丈夫
そうは思っていませんが，いろいろ探していく中で唯一見つけた方法でした。

初心者の私に作成を依頼した方にご指摘事項は伝えたいと思います。「こんな難しいこと無理」と思うことが多すぎて。
ネットワークを使ってダウンロードする方法もWEBから見つけてできたのですが，Ｂ列のチェックボックスでtureの値の時だけ同行のＣ列とＤ列にあるハイハーリンク文書をネットワークの指定場所にファイルを保存するなんてことを行っています。
この指定範囲のところで躓きました。
この「拾った値のみダウンロード」もまだできていません。
なのに期限は9月末。
プロ級の方でも難しいことなのでは？と思ってしまいます。
これを初心者でいきなりでしたので。
かなり愚痴になってしまいました。すみません。
こんな状況で精神的に追い詰められていましたのでご回答があり，少し救われました。ありがとうございました。