如何将范围内的行号更改为variables?

我想改变范围行号作为variables,并得到它在另一个表中定义,我该怎么做? (在下面的例子“D2:D1999”中,我想在另一个表格中指定“2”并包含在vb代码中。)

Sub Del() Dim rng As Range Dim x As Long With Sheets("RCSamples") Set rng = .Range("D2:D1999") rng.EntireRow.Delete End With End Sub 

 With Sheets("RCSamples") Set rng = .Range("D" & Sheets("OtherSheet").range("WheretheNumberis") & ":D1999") rng.EntireRow.Delete End With