VBA to automatically change cell number

[KAYE04]

Hi I have this excel file and i create a macro that every time i will click the button (next invoice) the data will clear contents and cell J7 will change to the next number

for example when i click next invoice Cell J7 will turn to CS-0002, then CS-0003, CS-0004 and specific ranges will clear.

here are my codes

Sub NextInvoice()

Worksheets("Table 1").Range("b10:b55").ClearContents
Worksheets("Table 1").Range("d10:e55").ClearContents
Worksheets("Table 1").Range("d6:d7").ClearContents
Worksheets("Table 1").Range("h6:h6").ClearContents
Worksheets("Table 1").Range("j6:j6").ClearContents

End Sub

thank you in advance

 

[Logit]

Sub NextInvoice()

Worksheets("Table 1").Range("b10:b55").ClearContents
Worksheets("Table 1").Range("d10:e55").ClearContents
Worksheets("Table 1").Range("d6:d7").ClearContents
Worksheets("Table 1").Range("h6:h6").ClearContents
Worksheets("Table 1").Range("j6:j6").ClearContents
Worksheets("Table 1").Range("J7").Value = Worksheets("Table 1").Range("J7").Value + 1

End Sub

Enter 'CS-0000' or CS-0001' as the starting number in cell J7.

 

[KAYE04]

Sub NextInvoice()

Worksheets("Table 1").Range("b10:b55").ClearContents
Worksheets("Table 1").Range("d10:e55").ClearContents
Worksheets("Table 1").Range("d6:d7").ClearContents
Worksheets("Table 1").Range("h6:h6").ClearContents
Worksheets("Table 1").Range("j6:j6").ClearContents
Worksheets("Table 1").Range("J7").Value = Worksheets("Table 1").Range("J7").Value + 1

End Sub

Enter 'CS-0000' or CS-0001' as the starting number in cell J7.

Thank you this helpss

 

[Logit]

You are welcome.