Sub Cutting()
'
'Извлекаем размер заготовки
A = Range("B4")
B = Range("C4")
'Извлекаем размер детали
x = Range("E4")
y = Range("F4")
'
'Кол-во деталей
L = 0
'
'Определяем максимальное количество деталей
N1 = Int(A / x) * Int(B / y)
If L < N1 Then L = N1
'
N2 = Int(A / y) * Int(B / x)
If L < N2 Then L = N2
'
'Возвращаем максимальное кол-во деталей
Range("F7") = L
If N1 = L Then
Range("F8") = L
Else
Range("F8") = 0
End If
'
Range("F9") = L - Range("F8")
'
End Sub

Sub Cutting()
    '
    
    Range("F7").Clear
    Range("F8").Clear
    Range("F9").Clear
    
    'размер заготовки в переменные
    A = Range("B4")
    B = Range("C4")
    'размер детали в переменные
    x = Range("E4")
    y = Range("F4")
    '
    N1 = Int(A / x)
    N2 = Int(A / y)

    F1 = Int(B / x)
    F2 = Int(B / y)

    L1 = N1 * F2
    L2 = N2 * F1

    If L1 > L2 Then
        L = L1
    
        S1 = A - (N1 * x)
        T2 = B - (F2 * y)
    Else ' L1 < L2
        L = L2
    
        S2 = A - (N2 * y)
        T1 = B - (F1 * x)
    End If

    U = T1 + T2
'Stop
    If U > x Or U > y Then
        B = A
        A = U
    End If

'
    N1b = Int(A / x)
    N2b = Int(A / y)

    F1b = Int(B / x)
    F2b = Int(B / y)

    L1b = N1b * F2b
    L2b = N2b * F1b

    If L1b > L2b Then
        Lb = L1b
    
        S1b = A - (N1b * x)
    Else ' L1 < L2
        Lb = L2b
    
        S2b = A - (N2b * y)
    End If
    
    'Возвращаем максимальное кол-во деталей
    Range("F7") = L + Lb
    Range("F8") = Lb
    Range("F9") = L
End Sub