ThisWorkbook と ActiveWorkbook は別物です。
まず、そこを認識するべきかと思います。あなたの「別ファイルで保存」というマクロを実行した瞬間は、ThisWorkbookがActiveな状態で実行している（場合に限り）ThisWorkbook=ActiveWorkbookとなりますが、本質的には全く別物となります。
ThisWorkbook を予備として保存するだけなら、わざわざRange(\u0026quot;A1\u0026quot;).Valueでの指定は不要なのでは？なお、SavePathにおいても、同じディレクトリに保存するだけなら、指定は不要です。
また、シートを指定せずにRangeを指定しているので、自動的にActiveSheetのRangeを指定していることと同義になります。本来であれば、「シート名」もしくは「シートインデックス」で指定することが推奨されます。※下記の回答では、1枚目のシートと仮定しています。
・ThisWorkbookの1枚目のシートのA2で指定したディレクトリに、ThisWorkbookの予備を保存する
という最小構成なら、下記になります。
Sub sample()
With ThisWorkbook
.SaveCopyAs .Sheets(1).Range(\u0026quot;A2\u0026quot;).Value \u0026amp;\u0026quot;\\予備_\u0026quot;\u0026amp;.Name
End With
End Sub
