Остановите Excel автоматически применяя текст переноса к скопированным данным

Question

Проблема здесь в том, что всякий раз, когда я копирую и вставляю данные из одного листа в другой, скопированные ячейки данных автоматически применяют текст переноса к себе. Как мне остановить это поведение?

Сценарий действительно прост.

Sub TestScript()
    Dim ActiveWB As Workbook
    Dim WS1 As Worksheet
    Dim WS2 As Worksheet

    Set ActiveWB = ActiveWorkbook
    Set WS1 = ActiveWB.Worksheets(1)
    Set WS2 = ActiveWB.Worksheets(2)

    WS1.UsedRange.Cells.SpecialCells(xlCellTypeVisible).Copy
    WS2.Range("A1").PasteSpecial xlPasteValues
    WS2.Range("A1").PasteSpecial xlPasteFormats
End Sub

Я использовал xlCellTypeVisible, так как копирую отфильтрованные данные с первого листа.

Данные первого рабочего листа:

Данные второго рабочего листа:

Данные, над которыми я работаю, представляют собой обычные табличные данные. Строка заголовка данных имеет текст переноса, примененный к нему перед копированием, но для остальных ячеек я просто хочу скопировать числовые форматы, стиль шрифта, цветную заливку и т. Д., Но он применяет текст переноса ко всем данным автоматически. Есть ли возможность остановить Excel при копировании?