Tengo una suma en una columna y una resta en otra columna, necesito que mediante una macro la suma y la resta en la columna..

A la comunidad todoexpertos:'

Tengo varia columnas que necesito una suma decreciente, es decir en la fila A2 por ejemplo va suma de las columnas Range("AE2:AI") = Range("AE2:AI")+ Range("AE100:AI"), en la fila A3=A3+A99, etc y lo mismo con la resta de una columna que toma los valores de dos columnas de esas sumas, a continuación lo que hice con la yauda de un experto, pero esto me da solo la suma en la fila 2

Alguien me puede ayudar en esto.

Gracias

Eusebio

lastrow = Sheets("MKP"). Cells(Rows. Count, "A").End(xlUp). Row
Sheets("MKP").Range("AE:AN").Locked = False
With Range("AE2:AI" & lastrow)
.Formula = "=sum(G2:G100)"
End With
'
Tengo With Range("AJ2:AN" & lastrow)
.Formula = "=sum(O2:O100)"
End With
'
Sheets("MKP").Range("AE:AN").Locked = True
'
Sheets("MKP").Range("BI:BR").Locked = False
With Range("BI2:BM" & lastrow)
.Formula = "=sum(AY2:AY100)"
End With
'
With Range("BN2:BR" & lastrow)
.Formula = "=sum(BD2:BD100)"
End With
'
Sheets("MKP").Range("BI:BR").Locked = True
'
Sheets("MKP").Range("AE:AN").Locked = False
With Range("CC2:CG" & lastrow)
.Formula = "=sum(AE2:AE100)-sum(Aj2:AJ100)"
End With
'Sheets("MKP").Range("AE:AN").Locked = True
'
Sheets("MKP").Range("Bj:AR").Locked = False
With Range("CH2:CL" & lastrow)
.Formula = "=sum(Bj2:Bj100)-sum(BN2:BN100)"
End With
'
Sheets("MKP").Range("BJ:AR").Locked = True