If your version can use Filter worksheet function then simply
MyArr = WorksheetFunction.Filter(ArrA, ArrB)
then you need to adjust the L/Ubound with Redim Preserve key word.