Формула структурированной таблицы для разделения текстовой строки после дефиса

Question

Я пытаюсь найти единый код VBA, который будет использовать ссылку на структурированную таблицу для редактирования значений в столбце, заданном как «Соединенные Штаты Америки - США». Цель состоит в том, чтобы удалить все перед дефисом (-) и оставить только часть «США». Код, который я написал, выглядит следующим образом:

      Dim Rng As Range
Dim Cell As Range
Set Rng = Range("CNSTime[[#Data],[Country]]")
    For Each Cell In Rng
    Cell.Value = Right(Cell, Len(Cell) - InStr(Cell, "-") - 1)
Next Cell
End

Любой, кто может помочь заменить этот код однострочной структурированной формулой, например:

      Range("CNSTime[[#Data],[Country]]").formula = xxxxxxxxxxxxxx

Имя моей таблицы - CNSTime Set CNSTime = ActiveSheet.ListObjects("CNSTime") а заголовок столбца, который я пытаюсь исправить, - Страна.