需要根据更改单元格值填充整个列

Question

我在G11单元格中有一个公式，该公式显示了用于D2的零件号。一旦将此零件插入D2，单元格G11会为下一个单元格（D3）更新一个新零件，依此类推。我需要一个vba代码，该代码将仅使用其各自日期的值自动填充D2：D4列。考虑到G11不断更新，因此不确定是否可行。

我做了一个非常简单的VBA，它仅将单元格g11中的值复制并粘贴到d2中。但这仅适用于一行。

Sub CopyingCellValues()
  Range("G11").Copy
  Range("D2").PasteSpecial xlPasteValues
End Sub

代码仅适用于第一行

更新：我曾经使用此代码填写每个代码，现在我将进行一个过程，只需单击一个按钮即可自动分配所有单元格：

Sub copy_values()
Dim R As Range
Set R = Worksheets("Sheet1").Cells(Rows.Count, "G").End(xlUp) 'last cell in Column G with data
If Len(R.Value) > 0 Then Set R = R.Offset(1)
R.Value = Worksheets("Sheet1").Range("U17").Value

结束子