vba代码，用于从一个单元格复制数据并将其粘贴到excel的动态范围中

我想复制单元格C2中的数据，并将其粘贴到单元格C3:C10000。该值（C10000）将来可能会发生变化，并且是动态的。请帮我写一个VBA代码来复制粘贴数据。谢谢。

这可以通过以下方式实现，这将使用列A上的数据检查最后一行（假设动态范围将使用数据填充列A），并将值从C2一直复制到最后一行：

Sub foo()
Dim ws As Worksheet: Set ws = Worksheets("Sheet1")
'declare and set the worksheet you are working with, amend as required
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'get the last row in Column A, to find how far down the value of C2 should be copied to
ws.Range("C2").AutoFill Destination:=ws.Range("C2:C" & LastRow)
End Sub