Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
ColA
Page1
123457
Page1
891011
121314 'Where this is where you want to have "Page1" above it?
Page1
123456
Page1
78910
Option Explicit
Sub InsertBlankRows()
Dim nLastRow As Long
Dim nRow As Long
With ActiveSheet.UsedRange
nLastRow = .Rows.Count + .Row - 1
End With
For nRow = nLastRow To 1 Step -1
If Not Cells(nRow, 1) = "" Then
Cells(nRow, 1).EntireRow.Insert
End If
Next nRow
End Sub