使用 CurrentRegion

　
option VBAsupport 1
　
Sub Main
　
　'將所需資料存入 陣列DataRange ，必須指定開始的位置
　DataRange = cells(4,1).CurrentRegion
　' 陣列DataRange 的行數
　DataRangeRowsCount = cells(4,1).CurrentRegion.Rows.Count
　' 陣列DataRange 的欄數
　DataRangeColsCount = cells(4,1).CurrentRegion.columns.Count

　　' 抄至 I10: 21
　　range(cells(10,9),cells(10+DataRangeRowsCount -1,9+DataRangeColsCount-1))=DataRange
　
End Sub