请大大虾帮写个VBA小代码

[hjb_xy]

在“E:\2024年扫描\临时文件夹”下，有命名为001开始的以三位数命名的文件夹若干（最大999），同时在临时文件夹下，还有与以三位数命名文件夹数量相等的PDF文件，同样以001三位数开始命名。

现需要VBA实现：

1、将文件001.PDF剪切到001文件夹内，同时将001.PDF重命名为：2024年扫描.PDF。以此类推，将所有PDF文件剪切到同名的文件夹内，并都重命名为“2024年扫描.PDF”。

2、工作表中有数据：A列为1向下填充，到临时文件夹下以三位数命名的文件夹数量为止，B列有对应的数据。现需要将临时文件夹下以三位数命名的文件夹，重命名为A列对应的B列数据。