Question: What would be difference between Microservice Patterns [Transaction Log Trailing](https://microservices.io/patterns/data/transaction-log-tailing.html) vs [Polling Publisher](https://microservices.io/patterns/data/polling-publisher.html).

Looking at listed example ([Eventuate Local](https://github.com/eventuate-local/eventuate-local/)) seems that both the patterns are based on trailing database logs and publishing to message broker.

Answer: 
I like the autofilter answer just posted. But a more-literal answer that actually hides the rows, except row 1 and the one where 'Rng' is, goes like this:

```
Sub tst()
    Dim rng As Range, bottom As Range
    Set rng = [D3]  ' Just example data
    rng.Activate   ' put cursor on rng  
    ' Assumes Column A has data, otherwise use column with Rng in it
    Set bottom = Range("A" & Rows.Count).End(xlUp)  ' finds last row in A with any data in it      
    If rng.Row > 2 Then Range(Rows(2), Rows(rng.Row - 1)).Hidden = True ' Hide all rows above RNG      
    If rng.Row < bottom.Row Then Range(Rows(rng.Row + 1), Rows(bottom.Row)).Hidden = True  ' Hide rows below  
End Sub

```
Find vs Parent
==============

To not cramp your style, I've only removed the arguments **SearchDirection** and **MatchCase** because they were using default parameters and I've added the '**Parent**' part which is referring to the worksheet (Tracking Data).

```
Private Sub Summary_Click()

Dim EMPLID As String

EMPLID = Application.InputBox("Enter Your Employee Number", "Employee Number")

With Sheets("Tracking Data").Range("E:E")
        Set rng = .Find(What:=EMPLID, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows)
        If Not rng Is Nothing Then
            With .Parent
                .Cells(2, 1).Resize(rng.Row - 2).EntireRow.Hidden = True
                .Cells(rng.Row + 1, 1).Resize(.Rows.Count - rng.Row) _
                        .EntireRow.Hidden = True
            End With
            Application.Goto Rng, True         
        Else
            MsgBox "Nothing found"
        End If
End With
Unload Me

End Sub

```