Sub matrica()
Dim n&, i&, j&, k&, x&
Dim myarray As Variant, newarray As Variant
Dim Proverka As Boolean, Summa As Long
n =  10 
k =  6 
x =  0 
Summa =  0 

ReDim myarray(n -  1 , n -  1 )
ReDim newarray(x)

For i =  0  To n -  1 
 For j =  0  To n -  1 
  myarray(i, j) = Cells(i +  1 , j +  1 ).Value
 Next j
Next i

For i =  0  To n -  1 

Proverka = True

 For j =  0  To k -  1 
  If myarray(i, j) <=  0  Then Proverka = False
 Next j
   
 If Proverka Then
   For j =  0  To n -  1 
    Summa = Summa + myarray(i, j)
   Next
   ReDim Preserve newarray(x)
   newarray(x) = Summa
   Summa =  0 
   x = x +  1 
 End If

Next i


For i =  0  To x -  1 
  Range("M" & i +  1 ).Value = newarray(i)
Next i

End Sub

Option Explicit

Sub matrica()
Dim n&, i&, j&, k&, x&
Dim myarray As Variant, newarray As Variant
Dim Proverka As Boolean, Summa As Long
Dim str1 As String, str2 As String

n = InputBox("Введите порядок матрицы", "Ввод",  1 )
k = InputBox("Введите кол-во идущих подряд полож. чисел", "Ввод",  2 )

If k > n Then
 MsgBox "фигня, т.к. k > n"
 Exit Sub
End If

x =  0 
Summa =  0 

ReDim myarray(n -  1 , n -  1 )
ReDim newarray(x)

For i =  0  To n -  1 
 For j =  0  To n -  1 
  myarray(i, j) = (- 1 ) ^ Int( 2  * Rnd +  1 ) * Int( 50  * Rnd +  1 )
  str1 = str1 & myarray(i, j) & " "
 Next j
Next i

For i =  0  To n -  1 

Proverka = True

 For j =  0  To k -  1 
  If myarray(i, j) <=  0  Then Proverka = False
 Next j
   
 If Proverka Then
   For j =  0  To n -  1 
    Summa = Summa + myarray(i, j)
   Next
   ReDim Preserve newarray(x)
   newarray(x) = Summa
   str2 = str2 & newarray(x) & " "
   Summa =  0 
   x = x +  1 
 End If

Next i

MsgBox "Начальный массив: " & Chr( 13 ) & str1 & Chr( 13 ) & "Полученный массив:" & Chr( 13 ) & str2 _
,  65 , "Результат"

End Sub