915です。たびたびすいません。
所定のセル以外に任意のところからは
スタートできませんでしょか？

if　LastCell ＝"$A$1" 　then
Range("E5").Activate
end　if
if　LastCell ＝"$E$5"　then
Range("A1").Activate
end　if
でして見ましたが、無限ループみたいになって
しまってだめでした。