Sub var12_1()
    Set d = Range("A1").CurrentRegion
    m = d.Rows.Count
    n = d.Columns.Count
    Dim a As Single, b As Single
    a = InputBox("Ââåäèòå ÷èñëî 'à'")
    b = InputBox("Ââåäèòå ÷èñëî 'b' (áîëüøåå, ÷åì 'a')")

    copyRows = 0

    If a > b Then MsgBox ("a áîëüøå b"): Exit Sub

    For i = 1 To m
        pravilnieZnacheniya = True
        For j = 1 To n
            If (d.Cells(i, j) < a) Or (d.Cells(i, j) > b) Then pravilnieZnacheniya = False
        Next j

        If pravilnieZnacheniya = True Then
            copyRows = copyRows + 1
            For j = 1 To n
                d.Cells(copyRows, n + 1 + j) = d.Cells(i, j)
            Next j
        End If
    Next i


End Sub