need macro insert blank row(s) under data

macropod · #4 09-15-2014, 01:53 AM

Yes, it is different, but not by much. Compare this macro against the one I've posted in the other thread:

Code:

Sub InsertDateRows()
Dim lRow As Long, i As Long
With ThisWorkbook.Worksheets("Sheet1").UsedRange
  For i = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If IsDate(.Range("B" & i).Text) Then
       While IsDate(.Range("B" & i + 2).Text) Or IsDate(.Range("B" & i + 1).Text)
          .Range("B" & i + 1).EntireRow.Insert
       Wend
    End If
  Next
End With
End Sub

You'll see that most of the code is the same.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
need macro insert row under specific data	gogita_79	Excel Programming	2	09-15-2014 01:48 AM
Trying to insert a blank which shows up with background highlighted	livemusic	Word	3	10-29-2012 02:50 PM
How to Insert a Clear, Blank page without Lines and Numbers in a Pleading Document	Dirigo	Word	5	09-30-2011 08:08 AM
Sorting or an Excel formula to insert a blank row after ending a series.	PRADEEPB270	Excel	1	09-07-2011 02:33 AM
How to organize and insert blank cells between a huge number of data?	tareq	Excel	12	09-29-2010 02:12 PM