Copy and Paste same format

[Nelson78]

Hello everybody.

I've filtered some records on the original workbook and I've pasted them in a new workbook.

        If .SpecialCells(xlCellTypeVisible).Count > 2 Then
            .Offset(1, 0).Resize(lr - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy new.Sheets(1).Range("A2")
        End If

My problem is: beeing in the above situation, how can I paste in the same format?

Thank you.

 

[Nelson78]

Hello everybody.

I've filtered some records on the original workbook and I've pasted them in a new workbook.

        If .SpecialCells(xlCellTypeVisible).Count > 2 Then
            .Offset(1, 0).Resize(lr - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy new.Sheets(1).Range("A2")
        End If

My problem is: beeing in the above situation, how can I paste in the same format?

Thank you.

No ideas?

 

[KeithGargett]

I recorded this using excel functions. There might be a better way.

    Range("E9").Select
    Selection.Copy
    Range("O10").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False