スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
自分で色々な部分を貼り付けて作ったのですが、最後に日時をAA1に記載したいのですが、
実行後は日時が入りません、ご指導頂けないでしょうか
※VBAがよく理解していないため、検索で見つけたコードを貼り付けて使っている知識になります。
 
コードの流れ
1、台帳のシートから、データをコピーします。
2、メインで使っているDR2-Unit-Form.xlsmのシート(PNumber)にデータを貼り付けます。
※ここまでは、完成しております。
3、DR2-Unit-Form.xlsmのPNumberのAA1に日時を記載する　
※こちらが実行されなく、VBAが終了している状態です。
 
お忙しいとは思いますが宜しくお願い致します。
 
☆★☆★☆★☆★☆★☆★☆★☆★★☆☆★☆★☆★☆★☆★☆★☆★☆★☆
 
    Dim SetFile As String
    Dim wbMoto, wbSaki As Workbook
    Dim 最終行 As Integer
    Dim myname, fName, a, b As String
     
  
    Set wbMoto = ActiveWorkbook 'マスターデータ取り込み元をブック名をセット（取り込み元）
  
    Application.DisplayAlerts = False
        
    SetFile = "\\Databasesega\Data1\台帳.xlsx"
     
    Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0 'マスターデータファイルを読み取り専用で開きます（）
    Set wbSaki = Workbooks.Open(SetFile) '開いたマスターブック名とセット（取り込み先）
     
        最終行 = Range("F2").End(xlDown).Row
  
        wbSaki.Worksheets("Sheet1").Range("A2:Z" & 最終行).Copy '取り込み先のシート名
 
        wbMoto.Worksheets("PNumber").Range("A2").PasteSpecial xlPasteValuesAndNumberFormats '取り込み元
        Application.CutCopyMode = False 'コピー切り取りを解除
         
        wbSaki.Close False 'マスターデータ取り込み先のファイルを閉じる
        Range("AA1") = Now 'AAに取り込み日時を記載する

引用:
3、DR2-Unit-Form.xlsmのPNumberのAA1に日時を記載する　
※こちらが実行されなく、VBAが終了している状態です。

Range("AA1") = Now

>メインで使っているDR2-Unit-Form.xlsm
このブックはどこにあるのでしょうか？
 
説明とコードの内容があっていないような感じを受けます。
 
コードには、ブックが３つ出てきます。
 
> Set wbMoto = ActiveWorkbook 'マスターデータ取り込み元をブック名をセット（取り込み元）
wbMoto は、具体的なブック名が記載されていません。
 

引用:
Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0 'マスターデータファイルを読み取り専用で開きます（）
    Set wbSaki = Workbooks.Open(SetFile) '開いたマスターブック名とセット（取り込み先）

お疲れさまです。
 
SUZUさん、ご回答をありがとうございました。
 
>その シートの AA1 に 日付・時刻の値が代入されていませんか？
開いている全てのシートのAA1を確認してみましたが、どのシートにも記載されていませんでした。
また、PNumberシートをアクティブにしておいて実施しましたが、記載は、されませんでした。
 
引き続き宜しくお願い致します。

引用:

    Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0 'マスターデータファイルを読み取り専用で開きます（）
    Set wbSaki = Workbooks.Open(SetFile) '開いたマスターブック名とセット（取り込み先）

WinArrowさん
 
ありがどうございました。
VBAの理解が乏しいので、わかりやすい表現で示して頂けると幸いです。
 
>Set wbMoto = ActiveWorkbook→wbMoto は、具体的なブック名が記載されていません。
こちらの指定はアクティブブックになっていることから、実行時に
アクティブにしているブックが対象と言うことではないのでしょうか?
 
>wbSakiを２回開いていますが、
すみません。VBAに詳しくないため、どのコードなのかを示して頂けないでしょうか
 
>3、DR2-Unit-Form.xlsmのPNumberのAA1に日時を記載する
>は、多分、ActiveWorkbookに書かれていると思います。
>ActiveWorkbookは「DR2-Unit-Form.xlsm」と同じですか？
実行時にアクティブになっているのは、DR2-Unit-Form.xlsmのPNumberです。
R2-Unit-Form.xlsのどのシートのAA1にも記載されていませんでした。
 
お忙しいとは思いますが宜しくお願い致します。

引用:
開いている全てのシートのAA1を確認してみましたが、どのシートにも記載されていませんでした。
また、PNumberシートをアクティブにしておいて実施しましたが、記載は、されませんでした。

takatada72 さんの引用:

>Set wbMoto = ActiveWorkbook→wbMoto は、具体的なブック名が記載されていません。
こちらの指定はアクティブブックになっていることから、実行時に
アクティブにしているブックが対象と言うことではないのでしょうか?

takatada72 さんの引用:

>wbSakiを２回開いていますが、
すみません。VBAに詳しくないため、どのコードなのかを示して頂けないでしょうか

皆様
 
今回の件、自己解決しました。
プログラムを開始する最初に日付を変更することで、問題は、解決しました。
 
色々とご回答頂きました、Suzuさん　WinArrowさん　ありがとうございました。
少しづつ、コードを理解していきたいと思っております。
 
解決とさせて頂きます。