（有偿）用excel获取ETF每分钟的价格，导入到另外一列，进行分析

想用VBA写一个小程式，奈何毕业已久，VBA的知识都已经还给老师了，如有大神能帮忙，万分感谢（有偿）。
具体思路如下：
1.通过excel 抓取财经类网站，从而每分钟获取一次ETF的价格（已解决）。
2.提取每分钟价格到表格的某一列，代码已经用ChatGpt 写出来了，奈何猪脑有限，已经不会填写和运行了，我附录在下面。
有没有程序猿大佬，或者是理工科大佬，抽空帮我润色下，有偿。

代码如下：
Sub ExtractData()
'设置变量
Dim sourceSheet As Worksheet
Set sourceSheet = ThisWorkbook.Sheets("源工作表")

Dim destSheet As Worksheet
Set destSheet = ThisWorkbook.Sheets("目标工作表")

Dim destColumn As Range
Set destColumn = destSheet.Range("A1") '将数据添加到 A 列

'提取数据并添加到目标列
Do While True
destColumn.Value = sourceSheet.Range("A1").Value
Set destColumn = destColumn.Offset(1, 0) '将下一行作为目标行
Application.Wait (Now + TimeValue("0:01:00")) '等待一分钟
Loop
End Sub