Compare multiple cells at the same time

If you could help me with my problem anaylising multiple cells at the same time, i would be appreciated.

Here's what i mean from the code i have.

Option Base 1
Sub userDef()
    Dim cNum As Long
    Dim stColArray(), lstColArray() As Variant
    Dim cRowArray(), cColArray() As Variant
    Dim cSel, rSel As Range
    Dim rw, col, j, mvSt1, mvEnd1, mvSt2, mvEnd2 As Integer

    j = 1
    
    cNum = Application.InputBox("Number of columns:")
    ReDim rStArray(cNum)
    ReDim stColArray(cNum)
    ReDim lstColArray(cNum)
    ReDim cRowArray(cNum)
    ReDim cColArray(cNum)
    For c = 1 To cNum
        Set rSel = Application.InputBox("Select " & c & " table(s)", Type:=8)
        Set cSel = Application.InputBox("Select " & c & " cell(s) of " & c & " table", Type:=8)
        If rSel Is Nothing Then
            MsgBox "No cell selected"
            Exit Sub
        Else
            stColArray(j) = rSel.Column
            lstColArray(j) = rSel.Columns(rSel.Columns.Count).Column
            cRowArray(j) = cSel.Row
            cColArray(j) = cSel.Column
            j = j + 1
        End If
    Next c
    
    
    j = 1
    x = 1
    y = 2
    rw = cRowArray(j)
    
nxtChk:
  
  a = Math.Round(Cells(rw, cColArray(x)).Value, 2)
  d = Math.Round(Cells(rw + 1, cColArray(x)).Value, 2)
  mvSt1 = stColArray(x)
  mvEnd1 = lstColArray(x)

  b = Math.Round(Cells(rw, cColArray(y)).Value, 2)
  c = Math.Round(Cells(rw + 1, cColArray(y)).Value, 2)
  mvSt2 = stColArray(y)
  mvEnd2 = lstColArray(y)
  
  stDevAB = Math.Sqr((((b - ((b + a) / 2)) ^ 2) + ((a - ((b + a) / 2)) ^ 2)) / 2)
  stDevAC = Math.Sqr((((c - ((c + a) / 2)) ^ 2) + ((a - ((c + a) / 2)) ^ 2)) / 2)
  stDevBA = Math.Sqr((((a - ((a + b) / 2)) ^ 2) + ((b - ((a + b) / 2)) ^ 2)) / 2)
  stDevBD = Math.Sqr((((d - ((d + b) / 2)) ^ 2) + ((d - ((d + b) / 2)) ^ 2)) / 2)
  stErrAB = stDevAB / Math.Sqr(2)
  stErrAC = stDevAC / Math.Sqr(2)
  stErrBA = stDevBA / Math.Sqr(2)
  stErrBD = stDevBD / Math.Sqr(2)
  
  If a > 0 And b > 0 Then
    chisqrAB = ((b - a) - 0.05) ^ 2 / a
    p_val_AB = WorksheetFunction.ChiDist(chisqrAB, 1)
    chisqrAC = ((c - a) - 0.05) ^ 2 / a
    p_val_AC = WorksheetFunction.ChiDist(chisqrAC, 1)
    chisqrBA = ((a - b) - 0.05) ^ 2 / b
    p_val_BA = WorksheetFunction.ChiDist(chisqrBA, 1)
    chisqrBD = ((d - b) - 0.05) ^ 2 / b
    p_val_BD = WorksheetFunction.ChiDist(chisqrBD, 1)
  End If
 
  If a > 0 And stDevAB > stDevAC And stErrAB > stErrAC And p_val_AB < p_val_AC Then
        For col = mvSt1 To mvEnd1
        Cells(rw, col).Insert shift:=xlDown
        Next col
  ElseIf b > 0 And stDevBA > stDevBD And stErrBA > stErrBD And p_val_BA < p_val_BD Then
        For col = mvSt2 To mvEnd2
        Cells(rw, col).Insert shift:=xlDown
        Next col
  End If


    If rw > 5 And b = 0 Then
    y = y + 1
    rw = cRowArray(j) - 1
    End If
    If rw > 5 And b = 0 And y > cNum Then Exit Sub
    rw = rw + 1

GoTo nxtChk
    
End Sub

I've attached the sample workbook too.

13081715551.xlsm

Variable a and d will be the fixed from the first selected cell.
Variable b and c will have values from the other selected cells which i want to compare against a and d.
If you have 3 selected cells the comparision i want is cell 1 vs cell 2 and cell 1 vs cell 3 all at the same time so that the line that will be inserted will be equally distribuited.

Thanks for your patience.

Hi,

I for one find it impossible to visualise what your code is doing to your data, largely because I can't see the data.

You would be better advised to upload your workbook, manually add whatever results you expect to see after a macro (not necessarily the one you give) has run and describe in a narrative form how you arrive at the results.

Hi,

I don't understand what you mean by sort so that the time columns match. The numbers in the red columns don't seem the same in the three tables so what do you mean by 'match'

I presume you're doing something more than a trivial sort of each table but can't see what. Are the tables you present after your macro has run or before.

What determines whether the cells in any of the tables are moved down?
It originally looked like the 2nd table values were always less than the same row in the first (base) table but this isn't consistent so presumably that's not the rule.

More Qs I'm afraid.

1. Is each table , i.e. Table 2, Table 3 etc. being compared with Table 1 as a discrete process and independent of the state of any earlier Tables that have been processed.

2. If the answer to 1 is Yes, is the Table to be compared compared with the original state of Table 1 or Table 1 after it may have had additional blank rows added as a result of earlier table processes?

3. If the answer to 1 is No, what are the rules for using the previous tables in the processing of the latest table?

4. When calculating the STDEVp for the four cells in the two comparison tables, are the cells to be compared always the cell position before any previous process has added a blank row to either of the two tables being compared, or with a cell after a blank row has been added. What I mean is this:

Assuming : where T1=Table 1 & T2 = Table 2
T1 K10 vs T2 Z10 & T1 K10 vs T2 Z11 are compared.

If as a result of this comparison T1 is shifted down introducing a new blank Row 11 is the next comparison
T1 K12 & T2 Z11 vs T1 K12 & T2 Z12 (i.e. 12 being the original row 11) or
T1 K11 & T2 Z11 vs T1 K11 vs T2 Z12

Similarly if T2 Cells are shifted down introducing a new blank Row 11 is the next comparison
T1 K11 & T2 Z1211 vs T1 K11 vs T2 K13 (i.e. 13 being the original row 12) or
T1 K11 & T2 Z11 vs T1 K11 vs T2 Z12