Macro Loop to Extract Specific Values and Min/Max Values From Column/Rows Range

Thanks for the PM, my pleasure. Try this. I'm still not 100% sure if the interval is 20 or 20+1. If this code doesn't do the job it would be helpful if you could add to your attachment the expected results based on your example.

Sub x()

Dim rng As Range, rStart As Range, nRow As Long, r As Long

Sheet1.Activate
Set rStart = Application.InputBox("Enter start cell", Type:=8)
If rStart.Count > 1 Or rStart Is Nothing Then Exit Sub
nRow = Application.InputBox("How many rows", Type:=1)
If nRow = 0 Then Exit Sub

Set rng = rStart.Resize(nRow, 5)
Do Until IsEmpty(rStart)
    With Sheet2.Cells(Rows.Count, 1).End(xlUp)(2)
        .Value = rStart
        .Offset(, 1).Value = rStart.Offset(, 1)
        .Offset(, 2).Value = WorksheetFunction.Min(rng.Columns(3))
        .Offset(, 3).Value = WorksheetFunction.Max(rng.Columns(4))
        .Offset(, 4).Value = rStart.Offset(, 4)
    End With
    Set rng = rng.Offset(nRow)
    Set rStart = rStart.Offset(nRow)
Loop

End Sub

The first 2 columns looks like we have the right values. The other 3 don't seem to be working correctly. I've attached a sample spreadsheet. This assumes we have rows of 12 beginning in A2. Sheet 2 is the macro values and Sheet 3 are desired values.

I'm sorry. You're right. Thank you very much! I'll now study this code so I can learn it.

No problem. Once you've had a chance to check, if the code does what you want please could you mark the thread as Solved?