```
Sub SumForLimit()
Dim i As Long, Lr As Long, s As Long, m As Long, j As Long, k As Long
Dim x As Long, y As Long, z As Long, Lc As Long, a As Long, b As Long
Lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("C2:X6").ClearContents
i = Application.WorksheetFunction.Count(Range("A2:A" & Lr))
For k = 3 To Lr - 1
For j = 2 To Lr - 1
For i = 1 To Lr - 1
If j = k Then j = k + 1
If i = j Then i = i + 2
If i = k Then i = i + 1
x = Range("A" & i + 1).Value
y = Range("A" & j + 1).Value
z = Range("A" & k + 1).Value
s = Range("A" & i + 1).Value + Range("A" & j + 1).Value + Range("A" & k + 1).Value
Debug.Print s
If m <= s And s <= 58 Then
Lc = Cells(2, Columns.Count).End(xlToLeft).Column
Cells(2, Lc + 1).Value = x
Cells(3, Lc + 1).Value = y
Cells(4, Lc + 1).Value = z
m = s
Debug.Print m
End If
Next i
Next j
Next k
Debug.Print m
Lc = Cells(2, Columns.Count).End(xlToLeft).Column
b = Application.WorksheetFunction.Sum(Range(Cells(2, Lc), Cells(4, Lc)))
For j = 2 To Lc - 1
a = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(4, j)))
If a < b Then
Range(Cells(2, j), Cells(4, j)).ClearContents
End If
Next j
End Sub
```