每隔3分钟将数据（特定范围）保存到Excel中的单独工作表中

Question

以下代码将值从Sheet1上的D2和E2复制到Sheet2上的D2和E2，并每隔10分钟在每次复制一行时在Sheet2上添加一个新行。

有什么方法可以使用特定范围而不是选择单元格D2和E2并将该数据保存在工作表2中并添加新行吗？

Sub CopyValues()
Dim RowNo As Long
RowNo = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row + 1

     Sheets(2).Cells(RowNo, 4) = Sheets(1).Cells(2, 4)
     Sheets(2).Cells(RowNo, 5) = Sheets(1).Cells(2, 5)

Application.OnTime Now + TimeValue("00:03:00"), "CopyValues"

End Sub