Это должно сделать работу для вас:
Функция: =MID(D6,FIND("WEB",D6,1),FIND("Status",D6,1)-FIND("WEB",D6,1))
Обновленная функция для использования
MID(D6,FIND("WEB",D6,1),FIND(" ",D6,FIND("WEB",D6,1))-FIND("WEB",D6,1))
Вы можете запустить ту же функцию на Range
в VBA, чтобы получить этот результат вLoop.