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

See if I've understand your request. This puts the results on sheet2.

Sub x()

Dim rng As Range, rStart As Range, nCol 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
nCol = Application.InputBox("How many rows", Type:=1)
If nCol = 0 Then Exit Sub

Set rng = rStart.Resize(nCol, 5)
Do Until IsEmpty(rng(1, 1))
    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 = rng.Offset(, 4)
    End With
    Set rng = rng.Offset(nCol)
Loop

End Sub