始めましてOGDZと申します。

VBを使って、エクセル内にある特定の文字を検索しそのセルを選択、その２つ下からデ
ータが入っている一番下までをコピーして別のシートにコピーしたいのですが、一番下
まで選択するところで引っかかります。恐らくselection に値が入っていないためだと
思うのですが、どうしたらいいのかわかりません。イメージ的には以下のようなコード
です。（プログラムの一部なのでVBAではなくVBで実行したいのです）
よろしくお願いします。
' チャンネル名を検索

With ex_Book1.Worksheets(1).Range(A1:IV100) 'IV65536

Set Ken = .Find(Namae, After:=ex_Book1.Worksheets(1).Range(A1), _
lookin:=xlValues, lookat:=xlPart, searchorder:=xlByColumns, MatchCase:=False,
matchbyte:=False)

If Not Ken Is Nothing Then
'検索したセルをアクティブにする
ex_Book1.Worksheets(1).Range(Ken.Address).Activate
'２つ下のセルを選択
ex_Book1.Worksheets(1).Range(Ken.Address).Offset(2, 0).Select
'そのセルから一番下までを選択
ex_Book1.Worksheets(1).Range(Selection, Selection.End(xlDown)).Select
'コピー
Selection.Copy