Public Sub BSKD()Set r = Worksheets("sheet1").Range("A:D")Set s = Worksheets("SHEET2").Range("A:D")y = WorksheetFunction.CountA(Worksheets("sheet1").Range("D:D"))z = WorksheetFunction.CountA(Worksheets("SHEET2").Range("D:D"))k = 2For n = 2 To ymn = 0For m = 2 To zIf r(n, 7) = s(m, 7) ThenIf r(n, 8) = s(m, 8) ...