>>219,220
Set cell_b = cell_a.EntireRow.Offset(1).Resize(2).Find(What:="target2")
じゃないのか

というか>>219のコードでも動いてるっぽいけど
target1が(横方向の)結合セルの場合もあるのか？
だったら>>220のコードでもダメだと思うが