Microsoft Office Forums - View Single Post - [Solved] need macro insert blank row(s) under data

macropod · 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.