【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

Rangeのセル範囲の中で最も右側のセルを取得するにあたって、スマートな方法を教えて下さい。
※End(xlToRight)を使うと、1セルのときにうまくいかないです。

例1
　 　A B C D
　1 ■■■■
　
　Range：A1:D1
　→セルD1が取得される

例2
　 　A B C D
　1 ■□□□

　Range：A1
　→セルA1が取得される