Sub uuu()
    Dim a()
    Dim i&, rw&
'----------------
    Application.ScreenUpdating = False
    rw = 2
    a = Sheets("Выгрузка").UsedRange.Value
    With Sheets("Отчет")
        For i = 2 To UBound(a)
            If a(i, 1) > 0 Then
                .Cells(rw, 1) = a(i, 1)
                .Cells(rw, 3) = a(i, 3)
                rw = rw + 1
            End If
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
    Beep
End Sub