根据标准更改范围值

Question

如果cell.value（D2）小于今天，而另一个cell.value（D2）比今天更好，我需要显示一个范围。

复制和粘贴可能会从excel中消耗太多，并且无论如何它都无法正常工作，还有其他方法吗？

单元格值始终为J3:AB3，无论D2

中的日期是什么

这是我到目前为止所做的：

Dim C As Range
Set C = ThisWorkbook.Sheets("SIN").Range("D2")

If CDate(C.Value) <= Date Then
    ThisWorkbook.Sheets("PARA").Range("J2:AB2").Copy Destination:=ThisWorkbook.Sheets("SIN").Range("D5:V5")
Else
    ThisWorkbook.Sheets("PARA").Range("J3:AB3").Copy Destination:=ThisWorkbook.Sheets("SIN").Range("D5:V5")     
End If