Try this and report back.

Range("O2").Formula = "=MAX(A1:A20)&"" ""&MIN(A1:A20)"