Which one would be better and how to do it? Formula or Macro?

Option Explicit

Sub EnumEmplExpPassDate()
'declare variables
Dim srcWbk As Workbook, dstWbk As Workbook 'src and dest workbooks
Dim srcWsh As Worksheet, dstWsh As Worksheet 'src and dest worksheets
Dim i As Integer, j As Integer 'iter.

On Error GoTo Err_EnumEmplExpPassDate
    
    Set srcWbk = ThisWorkbook 'refer to workbook in which is macro
    Set dstWbk = Workbooks.Add 'add new workbook
    Set srcWsh = srcWbk.Worksheets(1) 'refer to the source sheet with employees names
    'or
    'Set srcWsh = srcwbk.Worksheets("Whole Squad")
    Set dstWsh = dstWbk.Worksheets(1) 'refer to the destination sheet, where you want to list people with expired passpord


    i = 2 'start from row 2 in src sheet
    j = 2 'start from row 2 in dest. sheet
    
    Do While srcWsh.Range("A" & i) <> ""
        'check status
        If srcWsh.Range("B" & i) = "Non" Or srcWsh.Range("B" & i) = "Exp" Then
            srcWsh.Range("A" & i).Copy dstWsh.Range("A" & j) 'copy data
            'if you want to copy the range of cells
            'srcWsh.Range("A" & i & "C" & i).Copy dstWsh.Range("A" & j) 'copy data
            j = j + 1 'increase counter in dst sheet
        End Select
        i = i + 1 'increase counter in src sheet
    Loop

    
'exit code
Exit_EnumEmplExpPassDate:
    On Error Resume Next 'ignore errors
    'clean up ;)
    Set srcWbk = Nothing
    Set dstWbk = Nothing
    Set srcWsh = Nothing
    Set dstWsh = Nothing
    Exit Sub

'error handler
Err_EnumEmplExpPassDate:
    MsgBox Err.Number, vbExclamation, Err.Number
    Resume Exit_EnumEmplExpPassDate
End Sub