Private Sub CommandButton1_Click()
For i = 2 To Range("A65536").End(xlUp).Row
If Range("A" & i) = "54" Or Range("A" & i) = "54,1" Then
If Range("B" & i) = "3,9" Or Range("B" & i) = "4" Or Range("B" & i) = "4,2" Or Range("B" & i) = "4,3" Then
If Range("E" & i) = "0,3" And Range("F" & i) = "0,3" Then
Range("N" & i) = "13301"
End If
End If
End If
Next i
End Sub