=ИНДЕКС($M$1:$M$44;СЛУЧМЕЖДУ(1;44))

Sub test()
  Dim c As New Collection, i%, j%
  For i = 1 To 44
    c.Add CStr(Cells(i, "m").Value)
  Next
  For i = 1 To 22
    j = Rnd * c.Count + 1
    Cells(i, "a") = CDbl(c(j))
    c.Remove j
  Next
End Sub

Sub test()
  Dim c As New Collection, i%, j%
  For i = -22 To 21
    c.Add i
  Next
  For i = 1 To 22
    j = Int(Rnd * c.Count) + 1
    Cells(i, "a") = c(j)
    c.Remove j
  Next
End Sub

=НАИБОЛЬШИЙ(СТРОКА(A$1:A$44)*ЕОШИБКА(ПОИСКПОЗ(СТРОКА(A$1:A$44)-23;$A$1:A1;));ОКРУГЛВВЕРХ(СЛЧИС()*(44-СЧЁТ($A$1:A1));0))-23