Book2.xlsxへコピー☆

Sub Book2へコピー()
    If TypeName(Selection) <> "Range" Then Exit Sub
  Selection.EntireRow.Select
    
    Selection.Copy
     
    Windows("Book2.xlsx").Activate
    
    Rows("3:3").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
    
    Application.CutCopyMode = False
End Sub