Выбрать из матрицы все простые числа и сформировать из них одномерный массив

Dim i, j As Integer
Dim NSimple As Long, a As Long, k As Long
' Логическая функция, отвечающая на вопрос: простое ли число а?
Function Simple(a As Long) As Boolean
Dim k As Long
Simple = False
For k = 2 To a \ 2 ' Обойти по всем целым числам от 2 до a\2
  If a Mod k = 0 Then Exit Function ' Если a делится на i, то a простое
Next k
' a не делится на целые числа от 2 до a\2. Да, простое.
Simple = True
End Function
Sub fff()
Cells.Select
Selection.ClearContents
n = InputBox("Введите количество строк массива")
m = InputBox("Введите количество столбцов массива")
For i = 1 To n
For j = 1 To m
Cells(i, j) = Int(Rnd(1) * 11 - 1)
Next j
Next i
 
For k = 1 To 10
    If Simple(k) Then NSimple = NSimple + 1
Next k
Debug.Print "Простых чисел="; NSimple
End Sub

Sub fff()
Dim i, j, S
Cells.Select
Selection.ClearContents
n = InputBox("Введите количество строк массива")
M = InputBox("Введите количество столбцов массива")
For i = 1 To n
    For j = 1 To M
        Cells(i, j) = Int(Rnd(1) * 11 - 1)
        If Simple(Cells(i, j)) Then S = IIf(S = "", Cells(i, j), S & ", " & Cells(i, j)): NSimple = NSimple + 1
    Next j
Next i
 
Debug.Print "Простых чисел="; NSimple
Debug.Print S
 
End Sub