How to automatically insert a blank row after a group of data

by

This does exactly what you are asking, checks the rows, and inserts a blank empty row at each change in column A:

sub AddBlankRows()
'
dim iRow as integer, iCol as integer
dim oRng as range

set oRng=range("a1")

irow=oRng.row
icol=oRng.column

do 
'
if cells(irow+1, iCol)<>cells(irow,iCol) then
    cells(irow+1,iCol).entirerow.insert shift:=xldown
    irow=irow+2
else
    irow=irow+1
end if
'
loop while not cells (irow,iCol).text=""
'
end sub

I hope that gets you started, let us know!

Philip

More Related Contents:

  1. How do you change the value of a cell in excel by clicking on it using VBA? [closed]
  2. How to avoid using Select in Excel VBA
  3. How do I use FileSystemObject in VBA?
  4. Is the . in .Range necessary when defined by .Cells?
  5. Run Excel Macro from Outside Excel Using VBScript From Command Line
  6. Importing text file into excel sheet
  7. Checking for #N/A in Excel cell from VBA code
  8. Non-web SQL Injection
  9. Error: “Could Not Find Installable ISAM”
  10. Filling any empty cells with the value above
  11. Password hash function for Excel VBA
  12. Create a folder and sub folder in Excel VBA
  13. hiding formulas in formula bar
  14. How to delete multiple rows without a loop in Excel VBA
  15. Excel VBA: getting row of clicked button [duplicate]
  16. VBA Many buttons point to the same _Click sub
  17. Excel VBA Filter Change event handler
  18. How to suppress Update Links warning?
  19. How do we use restful APIs from Excel macros (vba)?
  20. Cannot VBA write data to cells in Excel 2007/2010 within a function
  21. Sorting a dictionary by key in VBA
  22. VBA paste as values – how to
  23. How to send email to multiple recipients with addresses stored in Excel?
  24. What are the benefits of using Classes in VBA? [closed]
  25. Writing a VLOOKUP function in vba
  26. Handle cancellation of InputBox to select range
  27. Type Mismatch in Loop to scan Outlook Messages [duplicate]
  28. VBA: How to combine two ranges on different sheets into one, to loop through
  29. How to protect Excel workbook using VBA?
  30. How to get the range of the visible rows after applying an advanced filter in Excel (VBA)

Leave a Comment