ช่วยอธิบาย Code นี้หน่อยครับไม่ค่อยเข้าใจ

Sub SalePoe()
    Dim Poe As Currency
    Dim discount As Single
    ActiveCell.Offset(0, -2).Range("A1").Select
    Poe = ActiveCell.Value
    ActiveCell.Offset(0, 1).Range("A1").Select
    discount = ActiveCell.Value
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = Poe * (1 - discount / 100)
    Selection.Style = "Currency"
End Sub