کد برای اکسل. کوچکترین عضو یک مجموعه دلخواه

Sub delete()
Dim j As Integer
Dim out As Single
i = 25
 For j = 2 To 1201
  Rw = Range(Cells(i, j), Cells(i + 7, j))
out = WorksheetFunction.Min(Rw)
Worksheets("Target_total").Cells(10, j) = out
 Next j
End Sub