vba - FILTEREDデータのデータをあるシートから同じフォーマットの別のシートにコピーする方法

Question

リンクと同様の質問があります

行の内容とフォーマットを (別のシートに) コピーする

以下のコードを使用して、同じワークブック内のあるシートから別のシートにデータをコピーしようとしていますが、コピーすることはできますが、コピー後にセルの形式が変更されています。同じセル形式 (同じ長さ、幅、色など)

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

Answer 1

.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths