データが入っている最終行、最終列

// 最終行
Cells(1, 1).End(xlDown).Row

// 最初の行
Cells(1, 1).End(xlUp).Row

// 最終列
Cells(1, 1).End(xlToRight).Column

// 最初の列
Cells(1, 1).End(xlToLeft).Column