Excelマクロについての質問でございます。ダウンロードした別ファイルのA列が前月1日の行を行ごとコピーして貼り付けたいファイルのA列が前月1日の行に貼り付けたいのですがマクロ組むことは可能でしょうか？ご教示いただけますと幸いです。よろしくお願いいたします。

Sub main()

Dim vd As Date
vd = DateSerial(Year(Date), Month(Date) - 1, 1)

Dim wb As Workbook
Dim r1 As Variant, r2 As Variant

'貼り付け先検索
r1 = Application.Match(vd, ThisWorkbook.Sheets(1).Columns(1), 0)
If IsError(r1) Then
MsgBox \u0026quot;貼り付け先が見つかりません\u0026quot;
Exit Sub
End If

'ファイル選択
Dim p As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Environ(\u0026quot;USERPROFILE\u0026quot;) \u0026amp; \u0026quot;\\Downloads\\\u0026quot;
If .Show = -1 Then
p = .SelectedItems(1)
Else
MsgBox \u0026quot;ファイルが選択されませんでした\u0026quot;
Exit Sub
End If
End With

'コピー
Set wb = Workbooks.Open(p)

With wb.Sheets(1)
r2 = Application.Match(vd, .Columns(1), 0)

If IsError(r2) Then
MsgBox \u0026quot;コピー元の日付が見つかりません\u0026quot;
Else
.Rows(CLng(r2)).Copy ThisWorkbook.Sheets(1).Rows(CLng(r1))
Application.CutCopyMode = False
End If
End With

wb.Close False
Set wb = Nothing

MsgBox \u0026quot;完了\u0026quot;

End Sub