hi,

replace the msgbox with
    With ThisWorkbook.Worksheets("Sheet1")
        .Range(.Cells(2, 1), .Cells(2, 3)).Value2 = Array(count, avg, min)
    End With
it will write the values into sheet1, row2, A:C.

Regards