VBA code to populate next empty cell with value above plus 1 until all rows are populated

Hi Excel experts!

I am creating a spreadsheet for a point of sale system. On the 'sales' sheet I have a command button for when a sale is complete. When clicked all of the data from that sheet moves into another sheet 'today's sales' and I need help with vba code to assign a receipt number to each completed sale. The first sale of the day should be receipt no. 1 and each thereafter goes up by 1. Some of the code on that command button is as below:

Please Login or Register  to view this content.

But this doesn't work for the first sale of the day because column G has a title 'receipt number' - the code can't add 1 to this value.

Does anyone know a way to get around this?

Thanks in advance for your help!

Please Login or Register  to view this content.