Option Explicit
'последняя строка для генератора перенесена в лист service1 в ячейку B2
'запускк при активном листе service1
Sub random_service_Генератор_1_2()
Application.ScreenUpdating = False
Dim i As Long
Dim j As Long
  For i = 11 To Range("B2")
    Randomize
    'СЛУЧ_МЕЖДУ = Int((верх_граница - нижн_граница + 1) * Rnd + нижн_граница)
    Cells(i, "B") = Int((Cells(5, "D") - Cells(5, "C") + 1) * Rnd + Cells(5, "C"))
    Cells(i, "D") = WorksheetFunction.RoundDown(Cells(i, "B") * 0.85, 0)
    Cells(i, "E") = WorksheetFunction.RoundUp(Cells(i, "B") * 1.15, 0)
      For j = 7 To 56
        Randomize
        Cells(i, j) = Int((Cells(i, "E") - Cells(i, "D") + 1) * Rnd + Cells(i, "D"))
      Next
  Next
Application.ScreenUpdating = True
End Sub

=service!A3