Not sure how the number 0 was added to a cell when using a macro to add a blank row to excel file VBA

[zack8576]

I have this macro that adds an empty row (only column A will contain a value same as the cell above it) between two rows that contain different values in column B
in the example file below, a new row is added after rows: 14, 20, 27. The code is doing everything that it was intended to do except it adds "0" to column K in the new row...
any idea what is causing this ? Thanks !

Sub BlankSpaceBetweenStructures()
    Dim lr As Long, r As Long
    Application.ScreenUpdating = False

    lr = Cells(Rows.Count, "B").End(xlUp).Row

    For r = lr To 3 Step -1

        If Cells(r, "B").Value <> Cells(r - 1, "B").Value Then

            Rows(r).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

            Cells(r, "A").Value = Cells(r - 1, "A").Value
        End If
    Next r
    Application.ScreenUpdating = True
End Sub

 

[zack8576]

I am glad you found it.

Your latest query is a different question altogether (evaluating a whole different bit of code), and it would be best to post that in a new thread as its own question.
(That is a not a method I use at all, so I probably would not be the best person to answer this question anyhow).

Okay Joe, I will ask in another post. Thanks for your help on troubleshooting this