Vba help - might anyone know why i can't get this to function?

[usmrncrps]

'This script is invoked after the daily percentage rate is calculated by the user

Sub Enter_Click()

'After clicking macro a negative or NO response will return
If MsgBox("HAS PERCENTAGE RATE BEEN VERIFIED??", vbYesNo, "CHOOSE OPTION") = vbNo Then
MsgBox "VERIFY PERCENTAGE RATE BEFORE PROCEEDING", vbCritical, "ERROR"

'After clicking macro a positive response or Yes will return
If MsgBox("HAS PERCENTAGE RATE BEEN VERIFIED??", vbYesNo, "CHOOSE OPTION") = vbYes Then

Dim dt As Date
Range("A2").Value = Date

Dim a As Double

a = Range("B65").Value
b = Range("D65").Value

Dim per As Double
per = (b / a)
Range("C65").Value = per

Dim u As String
Dim i As Integer

i = 0

Do While i < 2190
u = Format(DateAdd("d", i, CDate("1/1/2015")), "mm/dd/yyyy")
i = i + 1
Sheets("Graphs").Range("A" & i = 1) = u

Loop

End If

End Sub

 

[shg]

Maybe ...

Sub Enter_Click()
  If MsgBox("HAS PERCENTAGE RATE BEEN VERIFIED??", vbYesNo, "CHOOSE OPTION") = vbNo Then
    MsgBox "VERIFY PERCENTAGE RATE BEFORE PROCEEDING", vbCritical, "ERROR"

  Else
    Range("A2").Value = Date
    Range("C65").Value = Range("D65").Value2 / Range("B65").Value2
    With Worksheets("Graph").Range("A1:A2190")
      .Formula = "=""12/31/2014"" + row()"
      .Value = .Value
      .NumberFormat = "mm/dd/yyyy"
  End If
End Sub