copy number of rows based on a number

Thank you for the script, unfortunately i receive an error "run-time error '9': Subscript out of range. CAn you specify the VBA on the attached file so i can understand where you're referring to? Thanks in advance