扩展范围时，VBA（Excel）更新ActiveRow

I'm making a macro in Excel to append the number of the row of the cell to the date in yyyymmdd format to generate fake barcodes with checksums. The first part uses the current date multiplied by 10000 and adding the current row number:I'm making a macro in Excel to append the numbe