.Range("L" & son + 1).Value = Range("L" & son).Value
If .Range("L" & son + 1).Value > 0 Then .Range("K" & son + 1).Value = "BİZ ALACAKLIYIZ."
If .Range("L" & son + 1).Value < 0 Then .Range("K" & son + 1).Value = "BİZ BORÇLUYUZ"
Sub alttoplamAl() Koduna alttakileri ekeyip deneyin.