Vba 如何将过滤数据的数据从一张图纸复制到另一张具有相同格式的图纸

我有一个与链接中类似的问题

我正试图用下面的代码将数据从同一工作簿中的一张工作表复制到另一张工作表，我可以复制，但复制后单元格的格式发生了变化，我如何才能用相同的单元格格式（长度、宽度、颜色等）复制数据

With ActiveSheet
     .UsedRange.SpecialCells(xlCellTypeVisible).Copy
End With

ActiveWorkbook.Worksheets(NewSheet).Select
With ActiveSheet
    .Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
End With

.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths