I am trying to figure out how to get the date added to a worksheet when the user selects "Yes" on a message box. The worksheet is already filtered at that point and I only want the date to go in column I of the visible rows. Below is the code that I've been working with. It is a combination of snipets that I have gotten from other posts, etc. Any help would be greatly appraciated.

Sub CreateCheckRequest()

    CreatePayment.Hide
    ThisWorkbook.Worksheets("Worksheet").Activate
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
    strPrompt = "Did you create a payment voucher?"
    strTitle = "Referee Payment"
    iRet = MsgBox(strPrompt, vbYesNo, strTitle)
    If iRet = vbNo Then
         If Worksheets("Referee Runs").AutoFilterMode Then ActiveSheet.ShowAllData
        Worksheets("Data").AutoFilterMode = False
        Worksheets("Start").Activate
        Else

        Dim r As Range
        Dim lastRow As Long
        Dim i As Long
        ActiveSheet.Range("$A$1:$J$1").AutoFilter Field:=9, Criteria1:=""
        Set r = Worksheets("Referee Runs").Range("A1")
        lastRow = .SpecialCells(xlCellTypeVisible).Rows.Count
        For i = 1 To lastRow – 1
        r.Offset(i, 9).Value = Now  
        Next

    End If

End Sub