Select all check poxes

If you deleted the line :
[Application.WorksheetFunction.CountA (Range(“A:A”)) + 1]
The code works fine, but my question is can we limit the user from checking more than one box?
I checked the 3 boxes, and only the third box was copied to the worksheet.