Macro adds a row and make a change

[osevero]

Hello everyone!


I plan to create a macro that adds a row with clean cells, keeping the formulas and make +1 to the value of the ID of the previous row.

fhg9.jpg

In this case, the next ID value would be 3.

Help please,
Cheers

[patel]

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
Rows(LR).Copy Rows(LR + 1)
Range("A" & LR + 1) = Range("A" & LR) + 1
Range("B" & LR + 1 & ":C" & LR + 1) = ""
End Sub

[osevero]

Thanks a lot!! Cheers