Inserting blank rows between data in table

Hi Josephine

As I explained yesterday this would need some VBA code. So do the following steps:

1. Open the Workbook in which you need to insert the rows.

2. Open the Tools menu Select Macro and Click the Visual Basic Editor (VBE)

3. In the VBE Open the Insert menu and Click Module. This inserts a new Module.

4. Copy the following code and paste into the new module (Module1)


Sub InsertBlankRows()

'Select last row in worksheet.
Selection.End(xlDown).Select

Do Until ActiveCell.Row = 1

'Insert a blank row
ActiveCell.EntireRow.Insert Shift:=xlDown

'Move up one row.
ActiveCell.Offset(-1, 0).Select

Loop

End Sub

5. Close the VBE.

Back in the workbook

6. Click the first cell of the first row of the table eg A1

NB Ensure that there are no blank cells in this column as the system will not do anything past this

7. Open the Tools menu Select Macro and Click Macros

8. In the Macro dialog box Select the InsertBlankRows macro and click Run

The system will insert a blank row between each record

Hope this helps

Carlos