录制宏 复制单元格数值 来当另存为的文件名，为什么数值是固定呢

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2020/03/25
'
'
Range("A2:D2").Select
Selection.Copy
Windows("模板.xlsx").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
Range("B2").Select
Application.CutCopyMode = False
Selection.Formula = "123"
Application.RecentFiles.Add Name:="C:\Users\Administrator.USER-20200128FI\Desktop\新建文件夹\123.xlsx"
ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator.USER-20200128FI\Desktop\新建文件夹\123.xlsx", AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
End Sub

ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator.USER-20200128FI\Desktop\新建文件夹\123.xlsx", AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
End Sub
你试一下把最后一段换一下，看是否可以？
ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator.USER-20200128FI\Desktop\新建文件夹\" & range("b2").value & ".xlsx", AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
End Sub

Sub Macro1(ByRef rng As Range)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With rng
If Len(.Value) <> 0 Then
Dim data(1 To 4, 1 To 2) As String
data(1, 1) = "手机号": data(2, 1) = "姓名": data(3, 1) = "年龄": data(4, 1) = "居住地"
data(1, 2) = .Value
data(2, 2) = .Offset(0, 1)
data(3, 2) = .Offset(0, 2)
data(4, 2) = .Offset(0, 3)
Dim NewBook As Workbook, NewSh As Worksheet
Set NewBook = Workbooks.Add
Set NewSh = NewBook.Worksheets.Add
NewSh.Name = data(2, 2)
NewSh.Range("A1").Resize(4, 2) = data
NewBook.SaveAs Filename:="C:\" & data(2, 2) & ".xlsx", AccessMode:=xlNoChange, ConflictResolution:=1, AddToMru:=-1
NewBook.Close
Macro1 rng.Offset(1, 0)
Else
Exit Sub
End If
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sub marco()
Workbooks("模板.xlsm").Activate
Macro1 [a2]
Shell "explorer.exe c:\", vbNormalFocus
End Sub