Üstünde ve altında boş satırlar olan tabloda dolu satırları seçtirmek

[Gungor_Alkan]

Merhaba Üstadlarım,

Farklı aralıklarla arada boş satırları olan bir tablom var.
Tablomu basite indirgersem

A-B-C Kolonlarından oluşsun

1) Satır: İLÇESİ-ADI-SOYADI (Başlık satırı)
2) Satır: (Boş bırakıyorum)

3) Satır: ALİAĞA-AHMET-ALİAĞALI
4) Satır: ALİAĞA-MEHMET-ALİAĞALI
5) Satır: ALİAĞA-HASAN-ALİAĞALI

6) Satır: (Boş bırakıyorum)

7) Satır: ÇEŞME-AHMET-ÇEŞMELİ
8) Satır: ÇEŞME-MEHMET-ÇEŞMELİ
9) Satır: ÇEŞME-HASAN-ÇEŞMELİ
10) Satır: ÇEŞME-HÜSEYİN-ÇEŞMELİ
11) Satır: ÇEŞME-AYŞE-ÇEŞMELİ
12) Satır: ÇEŞME-FATMA-ÇEŞMELİ

13) Satır: (Boş bırakıyorum)

14) Satır: URLA-ALİ-URLALI
15) Satır: URLA-VELİ-URLALI
16) Satır: URLA-FURKAN-URLALI
17) Satır: URLA-HAKAN-URLALI

18) Satır: (Boş bırakıyorum)

19) Satır: BUCA-AHMET-BUCALI
20) Satır: BUCA-MEHMET-BUCALI
21) Satır: BUCA-HASAN-BUCALI
22) Satır: BUCA-HÜSEYİN-BUCALI
23) Satır: BUCA-AYŞE-BUCALI
24) Satır: BUCA-FATMA-BUCALI
25) Satır: BUCA-ALİ-BUCALI
26) Satır: BUCA-VELİ-BUCALI
27) Satır: BUCA-FURKAN-BUCALI
28) Satır: BUCA-HAKAN-BUCALI
29) Satır: BUCA-SERKAN-BUCALI

30) Satır: (Boş bırakıyorum)
...........................................

Yapmak istediğim activecell tabodaki kişilerin İLÇE adı ADI veya SOYADI herhangi birinde iken kodu çalıştırdığımda
Alt ve Üstte bulunan boş satırlara kadar dolu olan satırları seçsin

Kullandığım şöyle bir kod var

Sub satirsec()
ActiveCell.Select
Range(Rows(Selection.Row + 0), Rows(Selection.Row + 0)).Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

bu kod bulunduğum yerden aşağıdaki boş satıra kadar olan dolu satırları seçiyor ancak ortada bir yerdeysem
üstteki boşluğa kadar olan dolu satırları da seçsin istiyorum

Yukarıdaki örnek tabloda

A24, B24 veya C24 Hücrelerinden birinde isem (BUCA-FATMA-BUCALI)

19,20,21, ..... ,29 satırlarını seçtirmek istiyorum.

Yardımcı olabilecek üstadlarıma şimdiden teşekkür ederim.