Удаление строк если не подходит по условию - VBA

Формулировка задачи:

Доброго! Появилась задачка: Имеется диапазон ячеек в таблице Excel в одном столбце (например, А1-А19568). В каждой ячейке этого диапазона есть шестнадцатизначное число. Есть функция:

                    Листинг программы
                
 
                        
                          
                    
Function Fun2(num$) As Boolean
    Dim i%, sum%, p%
    For i = 1 To Len(num)
        p = Mid$(num, i, 1) * (i Mod 2 + 1)
        sum = sum + IIf(p > 9, p - 9, p)
    Next i
    Fun2 = sum Mod 10 = 0
End Function

Подскажите, пожалуйста, как удалить все строки с ячейками значение которых false.

Решение задачи: «Удаление строк если не подходит по условию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Application.ScreenUpdating = False
    
    Dim iArr, iRow&, tmp$, c$: c = String(16, "0")
    
    iArr = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value
    For iRow = UBound(iArr, 1) To 1 Step -1
        tmp = Format(iArr(iRow, 1), c)
        If Not Luna2(tmp) Then Rows(iRow).Delete
    Next
    
    Application.ScreenUpdating = True
End Sub