IN A MACRO HOW CAN I INSERT BLANK LINES AFTER EACH PART NUMBER 3RD
Sub linin()
n = Cells(Rows.Count, "C").End(xlUp).Row
For i = n To 2 Step -1
If Cells(i, 3).Value < Cells(i - 1, 3).Value Then
Cells(i, 3).EntireRow.Insert
End If
Next
End Sub
--
Gary''s Student - gsnu200721
|