Excel Makro kod editleme yardım

Sub Satis()
Dim Alan As Range, sat As Range
Set Alan = Range("A2:A" & Range("A10").End(xlUp).Row)

For Each sat In Alan

If sat.Value = [B12].Value And sat.Offset(0, 2).Value < [B13].Value Then MsgBox " Stok Yetersiz ...!", vbCritical: Exit Sub
If sat.Value = [B12].Value And sat.Offset(0, 3).Value > [B14].Value Then MsgBox " Zararına satış yapamazsınız..! ", vbCritical: Exit Sub

If sat.Value = [B12].Value And sat.Offset(0, 2).Value >= [B13].Value And sat.Offset(0, 3).Value <= [B14].Value Then
sat.Offset(0, 2).Value = sat.Offset(0, 2).Value - [B13].Value
sat.Offset(0, 4).Value = sat.Offset(0, 4).Value + [B13].Value
sat.Offset(0, 5).Value = sat.Offset(0, 5).Value + [B13].Value * [B14].Value
MsgBox "Satış işlemi başarıyla kaydedildi..", vbInformation
Exit Sub
End If

Next
MsgBox "Bu Ürün Kodu Stok Kayıtlarında Bulunamadı..", vbInformation

End Sub