MACRO - Paste value and then save file multiple times ---- please help

I have a list of about 30 values in Column A on Sheet1. When I click on a button, I need to have a macro that will do 2 things:
1) Paste the value of that cell in another cell on sheet2 (Pasted in cell D7)
2) then save the file in a folder on my hard drive with the YYMM and then the value that was clicked on (ie: 1301xxxxxxxx)

I need this process to loop through all 30 values in Column A on Sheet1.


I am hoping someone can assist me with this macro. It is urgent. (Uggghh)

Thanks in advance. I am hoping that this is quick and easy for someone out there.

Something like this:

Option Explicit

Sub SaveCopies()
Dim dRNG As Range, d As Range, savePATH As String

savePATH = "C:\Path\To\Save\File\"              'remember the final \ in this string

Set dRNG = Sheets("Sheet1").Range("A:A").SpecialCells(xlConstants)

For Each d In dRNG
    Sheets("Sheet2").Range("D7").Value = d.Value
    ActiveWorkbook.SaveAs savePATH & Format(Date, "YYMM") & d.Value & ".xlsx", FileFormat:=51
Next d

End Sub