Dim LostRow As Integer
LostRow=sheets("¤u§@ªí1").cells(rows.count,1).end(xlup).row
For i = 2 to LostRow
If sheets("¤u§@ªí1").cells(i,5)=sheets("¤u§@ªí2").cells(i,5) and sheets("¤u§@ªí1").cells(i,1)=sheets("¤u§@ªí2").cells(i,1) then
sheets("¤u§@ªí1").cells(i,7)=sheets("¤u§@ªí1").cells(i,4)-sheets("¤u§@ªí2").cells(i,4)
end if
next