HELP! Adding Rows with a macro

I am still struggling with this....
I have attached a spread sheet where I want to add the number "1" under "Issue No" and "1" under "Action Step" by clicking a button and subsequently if additional actions are needed then I would like to click the other button to add additional Action Steps as needed.

Ok I have figured it out the above

BUTTTT..... is there a way to auto format the cell that contains the issue if there are multiple actions.... ie. if there are 2 actions steps then the issue needs to be merged into 2 cell, if 3 action steps then merge issue into 3 cells.

thanks
Kelly

Try the AddAction code as follows, but you should know, mixing Cell merge with VBA is not something one should do.

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(Cells(r, 2), Cells(r + k + 1, 2)).Merge
Range(Cells(r, 3), Cells(r + k + 1, 3)).Merge

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
End Sub

Try this ...
I use hidden 'tmp' sheet in VBA code.
To add an 'Action Step' select a given line for a given 'Issue' and select the 'Add new action' button.

Sub New_Issue()
    Dim sum_ As Integer
    
    lr = Cells(Rows.Count, "e").End(xlUp).Row
    Range("temp_row").Copy Cells(lr + 1, 2)
    sum_ = Application.Max(Range(Cells(lr, 2), Cells(lr - 5, 2))) + 1
    Cells(lr + 1, 2).Resize(, 5) = Array(sum_, "Issue " & sum_, 1, "Action Step 1", Date)
End Sub

Sub test_Action_Step()
    Dim rng As Range
    Dim rwsMrg As Integer, rw As Integer, lrw, acRow As Integer
    Dim adres As String
    
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "e").End(xlUp).Row
    acRow = ActiveCell.Row
    If acRow < 8 Or acRow > lr Or ActiveCell.Column <> 5 Then
        MsgBox "Can't insert row in 'Action Required (Task)'"
        Exit Sub
    End If
    Set rng = ActiveCell.Offset(, -2)
    With rng
        rwsMrg = .MergeArea.Count
        adres = .MergeArea.Address
        rw = Range(adres).Row
        If acRow = lr And rwsMrg = 1 Then
            Range("temp_row").Copy rng.MergeArea.Offset(1, -1)          '<----'temp_row' - named range in the sheet 'tmp'.
            With .Offset(1, -1).Resize(, 10).Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        Else
            .MergeArea.Offset(1).EntireRow.Insert Shift:=xlDown
            .MergeArea.Offset(1, -1).Borders.LineStyle = xlNone
            Range("temp_row").Copy rng.MergeArea.Offset(1, -1)
            With rng.Offset(1, -1).Resize(, 10).Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
            .UnMerge
        End If
    End With
    Range(adres).Resize(rwsMrg + 1).Merge
    Range(adres).Offset(, -1).Resize(rwsMrg + 1).Merge
    Cells(rw + rwsMrg, 4).Resize(, 3).Value = Array(rwsMrg + 1, "Action Step " & rwsMrg + 1, Date)
End Sub

You can like below.
Select the cells that you will remove solid fill colors from, and click Home > Fill Color > No Fill.

Glad to help.