.Cells(j, 2).Value = "'9" & .Cells(i - 1, 2).Value
Not critical in your situation: Leading apostrophe makes the Invoice number a String. Normally does not display in cell


Important!!! Change last "Application.ScreenUpdating = False" to True. This will also fix the display.