Microsoft Office Forums - View Single Post

Logit · 05-15-2020, 10:47 AM

.
Paste this macro into a REGULAR MODULE :

Code:

Option Explicit

Sub Addrisk()
Dim i As Long

On Error Resume Next

Application.ScreenUpdating = False

With ThisWorkbook.Sheets("Weekly Schedule Planner")
    For i = 1 To .Range("A1000").End(xlUp).Row
            ActiveCell.Range("A" & i).EntireRow.Copy
            ActiveCell.EntireRow.Insert shift:=xlDown  'insert and shift down
    Next i
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True 're-enable screen updates

End Sub

See attached file.

To use, click on any cell in COLUMN A, then click the Command Button on the sheet.