EXCEL 2000 - BLANK LINE BETWEEN GROUPS 1

[stkarma]

In Excel 2000, how do I automatically insert a blank line after each change in value in the date column.

 

[psudeke]

Here's some code you can modify to your needs, just change the range "a1" to your first cell in the list and "a2" to the second, should work fine.

Sub InsertRows()
Dim x As Integer

Do While Not Range("A2&quot.Offset(x) = ""
If Range("A1&quot.Offset(x) = Range("A2&quot.Offset(x) Then
Else
Range("A1&quot.Offset(x + 1).EntireRow.Insert
x = x + 1
End If
x = x + 1
Loop
End Sub

 

[stkarma]

:-D Works Perfect! Thanks Alot!