Sub Przycisk2_Kliknięcie()
    Dim i, k, aaa, bbb As Integer
    Dim Aopt As Double
    aaa = 1
    Aopt = 120
    For i = 1 To 530
        Arkusz1.Cells(17, 16) = Arkusz3.Cells(3 + i, 13)
        If (Arkusz1.Cells(17, 21) < Aopt) And (Arkusz1.Cells(90, 9)) <= 1 Then
            Arkusz4.Cells(aaa, 4) = Arkusz1.Cells(17, 16)
            aaa = aaa + 1
            Arkusz1.Cells(17, 16) = Arkusz4.Cells(1, 4)
        End If
    Next
    bbb = 1
    For i = 1 To 530
        Arkusz1.Cells(17, 16) = Arkusz3.Cells(3 + i, 13)
        If (Arkusz1.Cells(17, 21) < Aopt) And (Arkusz1.Cells(90, 9)) <= 1 Then
            Arkusz4.Cells(bbb, 4) = Arkusz1.Cells(17, 16)
            aaa = aaa + 1
            Arkusz1.Cells(17, 16) = Arkusz4.Cells(1, 4)
        End If
    Next
End Sub