Sub CopyData()
    Dim wb As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim arr1, arr2
    Dim i&, j&, n&, lr&
    
  Set wb = ThisWorkbook
  Set ws1 = wb.Worksheets("XX_XXX_01")
  Set ws2 = wb.Sheets.Add(After:=Sheets(Sheets.Count))
  ws2.Name = "XX_XXX"

  lr = ws1.Cells(Rows.Count, 7).End(xlUp).Row

ws1.Range("A1:O1").Copy
ws2.Range("A1:O1").PasteSpecial Paste:=xlPasteColumnWidths
ws1.Range("A1:O1").Copy
ws2.Range("A1:O1").PasteSpecial

    arr1 = ws1.Range("A2:O" & lr).Value

    ReDim arr2(1 To UBound(arr1, 1), 1 To UBound(arr1, 2))
    n = 0
    For i = 1 To UBound(arr1, 1)
        If arr1(i, 1) <> "1" Then
            n = n + 1
            For j = 1 To UBound(arr1, 2)
                arr2(n, j) = arr1(i, j)
            Next j
        End If
    Next i
    
    If n > 0 Then
    
    Call FormatColumns
    
    ws2.Range("A2").Resize(UBound(arr2, 1), UBound(arr2, 2)).Value = arr2
        
    Else
        MsgBox "Нет данных!", vbInformation
    End If
End Sub

Sub FormatColumns()
    Dim ws As Worksheet, ws2 As Worksheet
    Dim lastCol&, i&
    Dim cellVal
    Dim col As Range

    Set ws = ThisWorkbook.Sheets("XX_XXX_01")
    Set ws2 = ThisWorkbook.Sheets("XX_XXX")
    
    lastCol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    For i = 1 To lastCol
        Set col = ws2.Columns(i)
        cellVal = ws.Cells(2, i).Value

        Select Case TypeName(cellVal)
            Case "String"
                col.NumberFormat = "@"
            Case "Integer"
                col.NumberFormat = "0"
            Case "Double"
                col.NumberFormat = "#,##0.00"
            Case "Date"
                col.NumberFormat = "dd.mm.yyyy"
        End Select
    Next i

End Sub