Sub InsertRow()
Dim i As Long
For i = 1 To 5 'insert all the row you want.
If Len(Cells(i, 1).Value) = 0 Then
Cells(i, 1).EntireRow.Insert shift:=xlUp 'Inserts row above
i = i + 1 'skip to next row
End If
Next i
End Sub
application.screenupdating=false
Sub InsertRow()
Dim i As Long
For i = 1 To 5 'insert all the row you want.
If Len(Cells(i, 1).Value) = 0 Then
Cells(i, 1).EntireRow.Insert shift:=xlDown 'Inserts row above
i = i + 1 'skip to next row
End If
Next i
application.screenupdating=true
End Sub
Sub Insert_Rows()
Dim LR As Long, r As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For r = LR To 1 Step -1
If Len(Range("A" & r).Value) > 0 Then
Rows(r).Insert
End If
Next r
Application.ScreenUpdating = True
End Sub