Как заменить данные в ячейке на основе Len (ячейки) в смарт-таблице с помощью VBA

Question

У меня есть код ниже. Мне нужно удалить / заменить данные с условием: 1) если Len (ячейка) = 1 и 2) только в указанных c столбцах? Можете ли вы поддержать меня? Спасибо тебе.

Sub test()
    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
                            For Each cell In lc.DataBodyRange
                                If Len(cell.Value) = 1 Then
                                    cell.Replace What:="A", Replacement:=""
                                    cell.Replace What:="S", Replacement:=""
                                End If
                            Next cell
                        End If
                    Next lc
                Next lo
            End If
        Next xWs
End Sub