求教如何用FIND实现一个单元格区域

sxfxtf

我想实现的是通过FIND命令找到下面例子中的3个"标题"和3个"结尾"的单元格位置,然后把每个标题和结尾作为一个单元格区域单独保存出来并且以每个标题名字命名.
但是我第一步就遇到困难了,我写的程序在FINDPREVIOUS就失效了,求高手帮忙看看.
还有我对于FIND以及数组理解还是比较浅显,可以给个相关专门举例解说的链接?

标题1
123	123	123	123	123	123	123
456	456	456	456	456	456	456
123	123	123	123	123	123	123
456	456	456	456	456	456	456
123	123	123	123	123	123	123
456	456	456	456	456	456	456
123	123	123	123	123	123	123
456	456	456	456	456	456	456
结尾1
标题2
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
789	789	789	789	789	789	789
结尾2
标题3
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
123789	123789	123789	123789	123789	123789	123789
结尾3

ggsmart

要查找某个数据在指定区域中的位置，可以用FIND方法，如：
Sub ggsmart()
    Dim rng As Range
    Set rng = Columns("A:A").Find("结尾2", lookat:=xlWhole)
    MsgBox rng.Address
End Sub