Копирование всего форматирования на другой лист в VBA, удаляет форматирование чисел на оригинальном листе.

Question

Возникла проблема, когда я вставляю форматирование из шаблона на другой лист, содержащий значения и текст, импортированный из закрытой книги.

Форматы нумерации листов шаблона меняются с пользовательских на сегодняшний день, по-видимому, без видимой причины.Любая помощь будет оценена.Спасибо

Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count), Type:=xlWorksheet)
WS.Name = TextBox1.Value
Set WshNew = ThisWorkbook.Worksheets("Template_NewDCF")
Set WshOld = ThisWorkbook.Worksheets("Template_OldDCF")
Set wb = ActiveWorkbook

GetData NameTextBox.Value, "DCF", "A1:DD67", Sheets(TextBox1.Value).Range("A1:DD67"), False, False

If ComboBox1 = "Old Template" Then
    WshOld.Cells.Copy
With WS.Cells
    .PasteSpecial Paste:=xlPasteFormats     'Source format is pasted.
    .PasteSpecial Paste:=xlPasteComments    'Comments are pasted.
    .PasteSpecial Paste:=xlPasteValidation  'Validations are pasted.
    Application.CutCopyMode = False
    Application.GoTo .Cells(1), 1
    ActiveWindow.DisplayGridlines = False
    WS.Cells(2, 15) = WshNew.Cells(2, 2)
End With