Application.Cells Property (Excel)
Returns a Range object that represents all the cells on the active worksheet. If the active document is not a worksheet, this property fails.
Because the Item property is the default property for the Range object, you can specify the row and column index immediately after the Cells keyword. For more information, see the Item property and the examples for this topic.
Using this property without an object qualifier returns a Range object that represents all the cells on the active worksheet.
This example looks at data in each row and inserts a blank row each time the value in column A changes.
Sub ChangeInsertRows() Application.ScreenUpdating = False Dim xRow As Long For xRow = Application.Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If Application.Cells(xRow, 1).Value <> Application.Cells(xRow - 1, 1).Value Then Rows(xRow).Resize(1).Insert Next xRow Application.ScreenUpdating = True End Sub
MVP Tom Urtis is the founder of Atlas Programming Management , a full-service Microsoft Office and Excel business solutions company in Silicon Valley. Tom has over 25 years of experience in business management and developing Microsoft Office applications, and is the co-author of “Holy Macro! It’s 2,500 Excel VBA Examples."