Sub ras()
Dim col1 As New Collection
Dim col2 As New Collection
Dim col3 As New Collection

Dim range1 As Range, cel1 As Range
Dim Min As Double, Max As Double
Dim i As Long
Dim col1Range
     Min = 0
     Max = 2
c = 0

Set range1 = Sheets("1").Range("d9:d82")

         For Each cel1 In range1
             If cel1.Value = "SV&CO" Then
                 Range(cel1.Offset(0, 2), cel1(1, 5)).Formula = 0
             End If
         Next

         For Each cel1 In range1
             If cel1.Value = "KK" Then
                 col1.Add cel1.Offset(0, 2).Address
                 col2.Add cel1.Offset(0, 3).Address
                 col3.Add cel1.Offset(0, 4).Address
                 'col1.Add Range(cel1.Offset(0, 2), cel1(1, 5)).Address '\либо такой вариант
             End If

         Next

         Do
          
         For i = 1 To col1.Count
         Set col1Range = Range(col1(i))
             For Each cel1 In col1Range
                 cel1.Value = Int((Max - Min + 1) * Rnd + Min)
             Next
          
         Next
c = c + 1
         Loop While Range("f84").Value <> Range("f6").Value

         Do
          
         For i = 1 To col2.Count
         Set col1Range = Range(col2(i))
             For Each cel1 In col1Range
                 cel1.Value = Int((Max - Min + 1) * Rnd + Min)
             Next
          
         Next
c = c + 1
         Loop While Range("g84").Value <> Range("g6").Value
          
          
          
         Do
          
         For i = 1 To col3.Count
         Set col1Range = Range(col3(i))
             For Each cel1 In col1Range
                 cel1.Value = Int((Max - Min + 1) * Rnd + Min)
             Next
          
         Next
c = c + 1
         Loop While Range("h84").Value <> Range("h6").Value
MsgBox c & "циклов пока подобрало значения"
End Sub