Kl macro

De nuevo con mis preguntas
He probado el macro que me enviaste y la verdad es que no
lo podia creer cuando vi lo que queria (osea la suma de 4 nr maximo uno de
cada columna)
pero se me presento otro problema cuando tengo varios valores en cada
columna
obtengo una lista com demasiados resultados y se demora gran catidad de
tiempo,
quisiera saber si se pudiese modificar este macro de una forma que mejor
me
busque la suma entre 2 valores (Elegiendo siempre 4 numeros uno de cada
celda
precisamente como anteriormente)quiero decir que en dos celdas pueda dar
un
valor minimo y otro maximo y que me muestre la lista con los resultados ,
supongo que de esta forma sera mas rapido el procedimiento ya que seran
menor
cantidad de resultados.
Gracias por tu rapidez en contestar y con tan buenos
resultados.
Max








Nesito un macro para la siguiente operacion:

A B C D

A1=1 B1=2 C1=3 D1=4
A2=5 B2=6 C2=7 D2=8
A3=9 B3 C3 D3
Deseo obtener en una lista de todos los resultados de la suma de 4 numeros
pero maximo un numero de cada columna.Alguien podria ofrecer algun macro
para
esto.
De ante mano un millon de gracias. Max
Sub test() Ufila = Cells(Rows.Count, "A").End(xlUp).Row
Contador = 0
For i = 1 To Ufila
For j = 1 To Ufila
For k = 1 To Ufila
For l = 1 To Ufila
Contador = Contador + 1 Cells(Contador, "G")
= _
Cells(i, "A") + Cells(j, "B") _
+ Cells(k, "C") + Cells(l, "D")
Next l
Next k
Next j
Next i
End Sub