Sub test()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 2 Step -1
If Application.WorksheetFunction.IsText(Range("A" & r)) And Application.WorksheetFunction.IsNumber(Range("A" & r - 1)) Then
Rows(r).EntireRow.Insert
End If
Next r
End Sub
The code worked perfectly!