Dim A, B, i%, Sample, LastRow&, DeskTopPath$
    Dim Cl As Range
    Set B = ActiveWorkbook
    Workbooks.Add
    Set Sample = Workbooks(Workbooks.Count)
    For Each Cl In B.Worksheets(1).[A11].CurrentRegion.Columns(1).Cells
        i = 1
        A = Cl.Resize(1, 31)
            If Cl.Row >= 12 Then
                If Not Cl.EntireRow.Hidden Then
        With Sample
            With .Worksheets("Лист1")
                        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                        If IsEmpty(.[A1]) Then LastRow = 1
                            .Cells(LastRow, 1) = A(i, 3)
                            .Cells(LastRow, 2) = A(i, 5)
                            .Cells(LastRow, 3) = A(i, 31)
            End With
        End With
                End If
            End If
    Next

End Sub