Sort each subset of n rows by specific column ranking

[RINCONPAUL]

I'm after macro code to sort each 5 rows of data in cols A:D by the rank assigned in col C until reaching a blank row. The resultant sort required is shown alongside in cols F:I
Thanks

[YasserKhalil]

Hello
If the number of each subset is fixed try that code


Sub Test()
Dim i As Long
Dim r As Range


Application.ScreenUpdating = 0
Columns("A:D").Copy Columns("F")
For i = 2 To Cells(Rows.Count, "F").End(xlUp).Row Step 5
Set r = Range("F" & i).Resize(5, 4)
r.Sort Key1:=Range("H" & i).Resize(5), Order1:=xlAscending
Next i
Application.ScreenUpdating = 1
End Sub

[RINCONPAUL]

Thankyou so much YasserKhalil, works great! :cloud9:

[YasserKhalil]

You're welcome. Glad I can offer some help
Regards