Thanks Stanley, it took a few helping hands but I figured it out in the end.
FYI here is the code I used:
Sub New_Planner()
'
' New Planner Macro
Dim rowPosition As Integer
With Worksheets("MASTER")
rowPosition = .Cells(1, 3).Value
.Rows(rowPosition).EntireRow.Select
Selection.Insert Shift:=x1Down, CopyOrigin:=xlFormatFromRightOrBelow
Rows(rowPosition + 1).Select
Selection.AutoFill Destination:=.Range(.Cells(rowPosition, 1), .Cells(rowPosition + 1, 1)).EntireRow, Type:=xlFillDefault
.Range(.Cells(rowPosition, 2), .Cells(rowPosition, 11)).ClearContents
.Cells(rowPosition, 2).Select
End With
End Sub
Bookmarks