makroda herseyı yaptım çalışıyor fakat bir sıkıntı var

[semira_]

ilk 20 satıra kadar talep aralıklarını sıralıyor ancak benim istediğim daha sonraki 20 satırlar içinde aynı şekilde talep degerleri sıralansın bu makroda nereyi düzeltmeliyim ?

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub sıralama()
Range("A1").Select
Worksheets("Sayfa1").Range("A2:D" & Cells(Rows.Count, "A").End(3).Row).ClearContents
For i = 1 To 5
    For j = 1 To 4
       For k = 1 To 5
          s = s + 1
        ActiveCell.Offset(s, 0) = i
        ActiveCell.Offset(s, 1) = j
        ActiveCell.Offset(s, 2) = k
        ActiveCell.Offset(s, 3) = Int(Rnd * 11) + 20
       Next
     Next
  Next
End Sub