Anlaşılmayan makro

[mcd]

Private Sub CommandButton1_Click()
'ActiveSheet.Unprotect Password:="1"


If ActiveCell.Value = "" And ActiveCell.Row = 6 Or ActiveCell.Value = "P" And ActiveCell.Row = 6 Or ActiveCell.Value = "T" And ActiveCell.Row = 6 Or ActiveCell.Value = "E" And ActiveCell.Row = 6 Or ActiveCell.Value = "Y" And ActiveCell.Row = 6 Or ActiveCell.Value = "S" And ActiveCell.Row = 6 Then
ActiveSheet.Unprotect Password:="1"
ActiveCell.Value = "0,25"
ActiveCell.Font.Size = 1
ActiveCell.Next.Select
ActiveCell.Value = "0,25"
ActiveCell.Font.Size = 1
ActiveCell.Next.Select
For t = 1 To 78
If Cells(6, 6 + t).Value = "0,25" Then
Cells(6, 4).Value = Cells(34, 6 + t)
Exit For
End If
Next
For t = 1 To 78
If Cells(6, 6 + t).Value = "" And Cells(34, 6 + t).Value > Cells(6, 4).Value Then
Cells(6, 5).Value = Cells(34, 6 + t)
Exit For
End If
Next

ElseIf ActiveCell.Value = "" And ActiveCell.Row = 8 Or ActiveCell.Value = "P" And ActiveCell.Row = 8 Or ActiveCell.Value = "T" And ActiveCell.Row = 8 Or ActiveCell.Value = "E" And ActiveCell.Row = 8 Or ActiveCell.Value = "Y" And ActiveCell.Row = 8 Or ActiveCell.Value = "S" And ActiveCell.Row = 8 Then
ActiveSheet.Unprotect Password:="1"
ActiveCell.Value = "0,25"
ActiveCell.Font.Size = 1
ActiveCell.Next.Select
ActiveCell.Value = "0,25"
ActiveCell.Font.Size = 1
ActiveCell.Next.Select
For t = 1 To 78
If Cells(8, 6 + t).Value = "0,25" Then
Cells(8, 4).Value = Cells(34, 6 + t)
Exit For
End If
Next


ekteki makroyu arkadaşım yazdı ama düzenleme yapmak için tam ne olduğunu anlayamadım arkadaşta yurt dışında sizden ricam ne demek olduğunu bana yazmanız.
Teşekkürler,