Here is code updated for formatting
Sub AddAction()
Dim r, k As Long
r = Selection.Row
k = 0
While Cells(r, 4).Value < Cells(r, 4).Offset(k + 1, 0)
k = k + 1
Wend
Cells(r + k + 1, 2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D" & r + k + 1).Value = Range("D" & r + k).Value + 1
Range("E" & r + k + 1).Value = "Action Step " & Range("D" & r + k).Value + 1
Range("F" & r + k + 1).Value = Date
Range("D" & r + k + 1).Font.Bold = True
Range("D" & r + k + 1).HorizontalAlignment = xlCenter
Range(Cells(r, 2), Cells(r + k + 1, 2)).Merge
Range(Cells(r, 3), Cells(r + k + 1, 3)).Merge
Range(Cells(r, 2), Cells(r + k + 1, 2)).Font.Bold = True
Range(Cells(r, 2), Cells(r + k + 1, 2)).VerticalAlignment = xlCenter
Range(Cells(r, 3), Cells(r + k + 1, 3)).VerticalAlignment = xlCenter
With Range("B" & r + k + 1 & ":K" & r + k + 1)
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
With Range(Cells(r + k + 1, 4), Cells(r + k + 1, 11)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range("F" & r + k + 1).Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
End With
With Range("K" & r + k + 1).Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
End With
With Range(Cells(r, 2), Cells(r + k + 1, 2)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Range(Cells(r, 2), Cells(r + k + 1, 2)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
End Sub
Sub AddIssue()
Dim lr, mx As Long
lr = Cells(Rows.Count, 4).End(xlUp).Row
'mx = Sheets("Action_Plan").Range("B" & lr).Value
mx = WorksheetFunction.Max(Range("B1:B" & lr))
'MsgBox lr & mx
Range("B" & lr + 1).Value = mx + 1
Range("C" & lr + 1).Value = "Issue " & mx + 1
Range("D" & lr + 1).Value = 1
Range("E" & lr + 1).Value = "Action Step 1"
Range("F" & lr + 1).Value = Date
Range("B" & lr + 1).Font.Bold = True
Range("B" & lr + 1).HorizontalAlignment = xlCenter
Range("B" & lr + 1).VerticalAlignment = xlBottom
Range("D" & lr + 1).Font.Bold = True
Range("D" & lr + 1).HorizontalAlignment = xlCenter
With Range("B" & lr + 1 & ":K" & lr + 1)
With Range("B" & lr + 1 & ":K" & lr + 1).Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
End With
With Range("B" & lr + 1 & ":K" & lr + 1).Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
End With
With Range("B" & lr + 1 & ":K" & lr + 1).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("B" & lr + 1 & ":K" & lr + 1).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("B" & lr + 1 & ":K" & lr + 1).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
End Sub
Bookmarks