"Морской бой": подсчет количества кораблей

Sub KolKorab()
    Dim B, c
    B = Range("A1:J10").Value ' Из Excel, лень вносить массивы в коде
    c = Range("L1:U10").Value
    MsgBox ("Количество в B = " & SchotKor(B) & vbCrLf & "Количество в C = " & SchotKor(c))
End Sub
Private Function SchotKor(A) As Integer
    Dim i%, j%, D
    ReDim D(LBound(A) To UBound(A), LBound(A, 2) To UBound(A, 2))
    For i = LBound(A) To UBound(A)
        For j = LBound(A, 2) To UBound(A, 2)
            If A(i, j) = 1 And D(i, j) = Empty Then
                Kontrol i, j, A, D
                SchotKor = SchotKor + 1
            End If
        Next
    Next
End Function
Private Sub Kontrol(i1, j1, A, D)
    Dim i%, j%
    For i = i1 - 1 To i1 + 1
        If i >= LBound(A) And i <= UBound(A) Then
            For j = j1 - 1 To j1 + 1
                If j >= LBound(A, 2) And j <= UBound(A, 2) Then
                    If A(i, j) = 1 And D(i, j) = Empty Then
                        D(i, j) = 1
                        Kontrol i, j, A, D
                    End If
                End If
            Next
        End If
    Next
End Sub