Option Explicit
Sub Insert_rows()
Dim Ro%, i%

del_empty_Rows
With Sheets("Salim")
    Ro = .Cells(Rows.Count, 1).End(3).Row
    i = 1
    Do Until i > Ro
         If .Cells(i, 1) <> .Cells(i + 1, 1) Then
            Ro = Ro + 1
            .Cells(i + 1, 1).EntireRow.Insert
            i = i + 1
        End If
      i = i + 1
    Loop
End With
End Sub
'+++++++++++++++++++++++++++++++++++
Sub del_empty_Rows()
With Sheets("Salim")
    Dim Lst%
        On Error Resume Next
          Lst = .Cells(Rows.Count, 1).End(3).Row
          .Range("A1:A" & Lst).SpecialCells(4).Delete
        On Error GoTo 0
    End With
End Sub