Как восстановить / заменить данные в ячейке в смарт-таблице для заданного c имени столбца, используя VBA

Question

Как восстановить / заменить данные в ячейке в умной таблице для указанных c столбцов.

Это то, что я имею до сих пор. В настоящее время код удалить / заменить данные для всех столбцов.

Sub delete_data()
Dim rng As Range
Dim cell As Range
Dim xWs As Worksheet

    For Each xWs In Application.ActiveWorkbook.Worksheets
        If xWs.Name = "SheetTest" Then
            For Each lo In xWs.ListObjects
                For Each lc In lo.ListColumns
                    If lc.Name Like "Week starting" & "*" Then
                        lc.DataBodyRange.Replace What:="[*]", Replacement:=""
                        lc.DataBodyRange.Replace What:=" ", Replacement:=""
                    End If
                Next lc
            Next lo
        End If
    Next xWs
End Sub