If cell A1 is not equal to cell A2, insert a row between A1 and A2. The same
logic applies to the whole Col. A. Any genius know how to write this
statement ????

Greatly Appreciate!!!!

something like this:

Sub test()
Dim c As Range
For Each c In Application.Intersect(ActiveSheet.Range("A:A"),
ActiveSheet.UsedRange)
If c.Value < "" And c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).EntireRow.Insert
End If
Next c
End Sub


--
Hope that helps.

Vergel Adriano


"MacroDummy" wrote:

If cell A1 is not equal to cell A2, insert a row between A1 and A2. The same
logic applies to the whole Col. A. Any genius know how to write this
statement ????

Greatly Appreciate!!!!

Hi Vergel,

what is "c"? do I need to select any cells first?

Many Thanks

"Vergel Adriano" wrote:

something like this:

Sub test()
Dim c As Range
For Each c In Application.Intersect(ActiveSheet.Range("A:A"),
ActiveSheet.UsedRange)
If c.Value < "" And c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).EntireRow.Insert
End If
Next c
End Sub


--
Hope that helps.

Vergel Adriano


"MacroDummy" wrote:

If cell A1 is not equal to cell A2, insert a row between A1 and A2. The same
logic applies to the whole Col. A. Any genius know how to write this
statement ????

Greatly Appreciate!!!!

Hi,

"c" is a range variable. The way it is used in the code, "c" will represent
one cell in Column A. The code takes the intersection of the used range in
the worksheet and column A. Then, it goes through each cell in column A and
compares it to the one below it. If they equal, a row is inserted between
them. You won't have to select any cell before running the macro.

--
Hope that helps.

Vergel Adriano


"MacroDummy" wrote:

Hi Vergel,

what is "c"? do I need to select any cells first?

Many Thanks

"Vergel Adriano" wrote:

something like this:

Sub test()
Dim c As Range
For Each c In Application.Intersect(ActiveSheet.Range("A:A"),
ActiveSheet.UsedRange)
If c.Value < "" And c.Value = c.Offset(1, 0).Value Then
c.Offset(1, 0).EntireRow.Insert
End If
Next c
End Sub


--
Hope that helps.

Vergel Adriano


"MacroDummy" wrote:

If cell A1 is not equal to cell A2, insert a row between A1 and A2. The same
logic applies to the whole Col. A. Any genius know how to write this
statement ????

Greatly Appreciate!!!!