Ending a Loop

Hello, I am working on a macro that takes a selection from a database (the selection is one or more entire rows) and creates and prints a report for each row selected. (It is currently set up to just create a new workbook of the report rather than print it for testing.)To use it, I must have the database (Database.xlsm) open and the sheet "DATABASE" selected. I manually select which row(s) I would like reports for and then run the macro. I am experiencing problems making the loop end. It does not create reports only for the selection, but keeps creating reports until my computer crashes basically. I've tried to use the Excel Help included with the program but I can't figure out what I'm doing wrong. Thank you if you can let me know!

The macro is currently:

 Sub TESTLOOP()
           
    For Each rw In Selection
    ActiveCell.EntireRow.Copy

    'Code to create a report is here.  Report is created within the same workbook on a separate worksheet.

    Worksheets("REPORT").Copy
    Workbooks("Database.xlsm").Activate
    Sheets("DATABASE").Select
    ActiveCell.Offset(1, 0).Activate
    Next      

End Sub

Thank you very much!