is there any easy way i need to add blank line in table, only unique is there is Bold cells , you can see there is no blank line till row 35, at present i am inserting row manually, hope you can suggest short cut,
Option Explicit
Sub InsBlnk()
Dim i As Long
For i = 35 To 5 Step -1
Application.ScreenUpdating = False
If Range("B" & i).Font.Bold = True Then
Range("B" & i + 1).EntireRow.Insert
End If
Next i
Application.ScreenUpdating = True
MsgBox "completed"
End Sub