Apps Script to filter column in table based on values from list - vba

Question

I'm looking for some help with a script to filter a specific column containing values from a list on a separate tab.
Basically I have 2 sheets in my workbook:
Sheet 1: contains a dynamic list of values that users need to copy/paste from a different source
Sheet 2: contains a table of data, with column E (5) that needs to be filtered for all values contained in the list on sheet 1. This means exact matches and partial matches.
E.g. User pastes the below list of countries on Sheet 1:
Country
Belgium
Netherlands
France
Column E(5) is filtered for exact and partial matches on Sheet 2:
| Country |
| -------- |
| Belgium |
| Belgium Luxembourg|
| Netherlands |
| France Spain |
| Italy France |
Any ideas how I can get this to work?
Thanks
I have a VBA script that works (see below), but converting it to Apps Script seems impossible as it uses the .exists construct which is not supported by Apps Script.
Sub AutoFltr()
Dim dIn As Object, dOut As Object
Dim a As Variant, b As Variant
Dim i As Long, j As Long
Dim bFound As Boolean
Set dIn = CreateObject("Scripting.Dictionary")
dIn.CompareMode = 1
Set dOut = CreateObject("Scripting.Dictionary")
dOut.CompareMode = 1
With Sheets("Start Here >>")
a = .Range("B17", .Range("B" & Rows.count).End(xlUp)).Value
End With
With Sheets("FA Items")
b = .Range("E2", .Range("E" & Rows.count).End(xlUp)).Value
For i = 1 To UBound(b)
If Not dIn.exists(b(i, 1)) Then
If Not dOut.exists(b(i, 1)) Then
j = 0
bFound = False
Do
j = j + 1
If InStr(1, b(i, 1), a(j, 1), vbTextCompare) > 0 Then
dIn(b(i, 1)) = 1
bFound = True
End If
Loop Until bFound Or j = UBound(a)
If Not bFound Then dOut(b(i, 1)) = 1
End If
End If
Next i
If dIn.count > 0 Then
.Range("A1").CurrentRegion.Autofilter Field:=5, Criteria1:=dIn.Keys, Operator:=xlFilterValues
End If
End With
End Sub