Match Combinations & Show Those With Greater Than X Matches

Match Combinations & Show Those With Greater Than X Matches

Option Explicit
Dim Data_1() As Integer, Data_2() As Integer
Dim N1 As Integer, N2 As Integer, Nx4 As Integer, nRow As Integer
Dim I As Integer, J As Integer, K As Integer, L As Integer

Sub Show_4Pluss()
Range("A1").Select
Application. ScreenUpdating = False
N1 = Range("H1").Value
N2 = Range("P1").Value
Redim Data_1(N1, 6), Data_2(N2, 6)
nRow = 1
Do While ActiveCell.Offset(nRow, 17).Value <> ""...................