Try this

paste this macro  into the VBA editor

Option Explicit

Sub lineupnumbers()


' Macro by David Grugeon
'
Dim X
Dim Y

X = Selection.Row
Y = Selection.Rows.Count
Y = Y + X - 1
For X = X To Y
If Range("A" & X) <> Range("B" & X) Then
Range(("B" & X), ("C" & X)).Select
Selection.Insert Shift:=xlDown
End If
Next X
End Sub

Then select all the rows with numbers  in column  A
Then run the macro

1) Do not post the same question twice under different subjects.

2) Do not request fast response - especially without giving a very good
reason for why your question should take priority over other questions (and
over our own priorities in life).

3) You must do the first part of the work. This is not a programming
service. What have you done so far? Post your reasoning and/or your code.