Auto Update Rows in One Sheet from Another

Try this code

Option Explicit

Sub update_status()
Dim lrow As Long, i As Long, a As Long

With Worksheets("Status")
    lrow = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To lrow
        If .Range("B" & i).Value <> "Risk" Then
            .Range("B" & i).Value = ""
        End If
    Next i
End With

a = 4
With Worksheets("Issue Log")
    lrow = .Range("C" & .Rows.Count).End(xlUp).Row
    For i = 3 To lrow
        If .Range("G" & i).Value = "Open" And .Range("H" & i).Value = "Critical" Then
            If Worksheets("Status").Range("B" & a + 2).Value = "Risk" Then
                Worksheets("Status").Rows(a).Insert
            End If
            Worksheets("Status").Range("B" & a).Value = .Range("D" & i).Value
            a = a + 1
        End If
    Next i
End With

With Worksheets("Status")
    lrow = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To lrow
        If .Range("B" & i).Value = "Risk" Then
            a = i + 1
            Exit For
        End If
    Next i
End With

With Worksheets("Risk Tracker")
    lrow = .Range("C" & .Rows.Count).End(xlUp).Row
    For i = 3 To lrow
        If .Range("G" & i).Value = "Critical" Then
            If Worksheets("Status").Range("B" & a + 1 & ":M" & a + 1).MergeCells = False Then
                Worksheets("Status").Rows(a).Insert
            End If
            Worksheets("Status").Range("B" & a).Value = .Range("D" & i).Value
            a = a + 1
        End If
    Next i
End With

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Couple of observations

1. Make all the updates to the Issue Log and Risk Tracker and then run the macro.
2. The conditions for the Issue Log are column G=Open and Column H=Critical.
3. The conditions for the Risk Tracker are column G=Critical

Let me know if anything needs to be changed.

This was a great first go at it! The issue update looks to be running great, but there were a few issues with the risks update ... See below:

1) I forgot to add the Status column to the risk tracker sheet. If that could be added to the criteria that would be great.
2) If you run the macro multiple times the updates to risk tracker on the status page will continuously add empty rows. After about the fifth run of the macro it acts funky and begins to insert rows formatted like the header. If you hit the macro enabled button 5 times you will see what I mean.

I've attached a copy of the workbook with the macro created for your reference. Thank you so much for you help on this. It's so close!

TJH

One last question:

In the future, if I want to add another section (Action) to status pulling from a new worksheet (Action Items) based off of the same criteria as the other sheet how do I need to go about adding that to the macro?

Example file attached

Thanks again,
TJH