Problem with Distribution Code

Dear VBA Experts
I have written a code for equal distribution of Budget Data based on condition.

The user will enter annual budget number in Column K (highlighted in Green) and based on condition in Column N (highlighted in Yellow), the data will be divided by 12 and it need to be equally distributed from Colum P to Column AA. The condition for distribution is ‘Y’ (Yes)/ ‘N’ (No).

I have also attached the sample file.Budget_Input Form.xlsm

Sub BudDist()
Dim myCell As Range
Dim Data As Long
Dim lr As Long
Dim a

lr = Cells(Rows.Count, 11).End(xlUp).Row
For Each myCell In Range("K39:K" & lr)
If UCase(myCell.Offset(, 3).Value) = "Y" Then
    Data = myCell.Value / 12
    a = myCell.Row
    Range("P" & a & ":AA" & a).Value = Data
    End If

Next myCell

End Sub

Please help me with fixing this issue.

Thanks,
Nisha

Option Explicit
Sub BudDist()
Dim myCell As Range
Dim Data As Long
Dim lr As Long
Dim a

lr = Cells(Rows.Count, 11).End(xlUp).Row
For Each myCell In Range("K39:K" & lr)
If UCase(Trim(myCell.Offset(, 3).Value)) = "Y" Then
    Data = myCell.Value / 12
    a = myCell.Row
    Range("P" & a & ":AA" & a).Value = Data
    End If

Next myCell

End Sub

If you want round figure, you can change this line

Dim Data As Double