Automated excel functions

Strange because VBA is much more restrictive (doesn't work online or on mobile). However, right click the sheet with the data, select "View Code" and paste the following:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lastRow As Long

' Only do this if column D is changed
If Application.Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub

' Turn off screen updating
Application.ScreenUpdating = False

' Find the last row of data
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

' Filter the rows for "wip"
Range(Range("A1"), Cells(lastRow, "G")).AutoFilter Field:=4, Criteria1:="wip"

' Clear the contents of the second sheet
Sheets("Sheet2").Cells.ClearContents

' Copy visible cells to the second sheet
Range(Range("A1"), Cells(lastRow, "B")).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet2").Range("A1")

' Remove the filter
Range(Range("A1"), Cells(lastRow, "G")).AutoFilter

' Turn on screen updating
Application.ScreenUpdating = True

End Sub

Also attached.

WBD