Insert a new row and merge the cells in a new row

[SWETHAKHATRI88]

I am trying to write a VBA code where if there is a value called 1234 in Column A, a new row needs to be inserted above with a value. For all the new rows inserted, Columns A and B should be merged. Can anyone help with the code for the merge part?

My code is as below

WithCells.Find("1234")
.EntireRow.Insert
Cells(.Row-1,"A") = "1.TEST1234"
END WITH

Thanks

 

[mumps]

Is there only one occurrence of "1234" in column A or can there be more than one?

 

[SWETHAKHATRI88]

Is there only one occurrence of "1234" in column A or can there be more than one?

Only one occurrence pls

 

[mumps]

Try:

Sub InsertRow()
    With Range("A:A").Find("1234")
        .EntireRow.Insert
        Cells(.Row - 1, "A") = "1.TEST1234"
        Cells(.Row - 1, "A").Resize(, 2).Merge
    End With
End Sub