Sub main()
Application.ScreenUpdating = False
Dim V As Range, R&, LC&, CC&
Dim T1&, T2&, T3&
Dim M1&, M2&, M3&, CM&
Set V = Cells
LC = V(3, Columns.Count).End(xlToLeft).Column
If V.Worksheet.AutoFilterMode Then V.AutoFilter
V.Rows(3).AutoFilter
For T1 = 2 To LC - 2
  V.Rows(3).AutoFilter T1, ">0"
  For T2 = T1 + 1 To LC - 1
    V.Rows(3).AutoFilter T2, ">0"
    For T3 = T2 + 1 To LC
      V.Rows(3).AutoFilter T3, ">0"
      CC = V.Worksheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
      If CC > CM Then CM = CC: M1 = T1: M2 = T2: M3 = T3
      V.Rows(3).AutoFilter T3
    Next T3
    V.Rows(3).AutoFilter T2
  Next T2
  V.Rows(3).AutoFilter T1
Next T1
V.Rows(3).AutoFilter M1, ">0"
V.Rows(3).AutoFilter M2, ">0"
V.Rows(3).AutoFilter M3, ">0"
Application.ScreenUpdating = -1
End Sub