View Single Post
 
Old 06-18-2017, 12:55 PM
Logit Logit is offline Windows 10 Office 2007
Expert
 
Join Date: Jan 2017
Posts: 591
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

.
You can use this macro to insert a blank row between existing rows of data on your worksheet:

Code:
Option Explicit

Sub Insert_Blank_Rows()
     
     'Select last row in worksheet.
    Selection.End(xlDown).Select
     
    Do Until ActiveCell.Row = 1
         'Insert blank row.
        ActiveCell.EntireRow.Insert shift:=xlUp
         'Move up one row.
        ActiveCell.Offset(-1, 0).Select
    Loop
     
End Sub
Before running the macro, click on the next to the last row of existing data. In other words, if you data on the sheet goes from A1 to A10, click on A9, then run the macro.
Reply With Quote