Sub Test()
Dim MyArray()
TargetValue = 279
LastRow = Cells(65536, 2).End(xlUp).Row
CombinationColumn = 2
For N = 1 To 2 ^ LastRow
    MyNumber = N
    ReDim MyArray(LastRow - 1)
    For M = LastRow - 1 To 0 Step -1
        If 2 ^ M <= MyNumber Then
            MyArray(M) = True
            MyNumber = MyNumber - 2 ^ M
        Else
            MyArray(M) = False
        End If
    Next M
    Total = 0
    For M = 0 To LastRow - 1
        If MyArray(M) = True Then Total = Total + Cells(M + 1, 2)
        If Total > Total Then Exit For
    Next M
    If Total = TargetValue Then
        CombinationColumn = CombinationColumn + 1
        For M = 1 To LastRow
            If MyArray(M - 1) = True Then Cells(M, CombinationColumn) = "X"
        Next M
    End If
Next N
End Sub