code to clear a cell

[palaeontology]

I use the following code to add a date into the first available cell in column S

Private Sub Skip_A_Student_Click()    Dim Cnt As Long
    Dim NxtRw As Long
    
    NxtRw = Cells(Rows.Count, "S").End(xlUp).Offset(1).Row
    Cnt = WorksheetFunction.Count(Range("S2:S" & NxtRw))
    Range("S" & NxtRw).Value = Date
End Sub

How could I adjust the code if I want to clear the lowest cell in column S that has a date in it ?

 

[mole999]

if this is identifying the correct cell then
Range("S" & NxtRw).ClearContents

adjusting up or down with NxtRw +1 0r -1

 

[Rick Rothstein]

How could I adjust the code if I want to clear the lowest cell in column S that has a date in it ?

See if this macro does what you want...

Sub ClearFirstDateInColumnS()
  Dim R As Long
  For R = 1 To Cells(Rows.Count, "S").End(xlUp).Row
    If IsDate(Cells(R, "S").Text) Then
      Cells(R, "S").ClearContents
      Exit For
    End If
  Next
End Sub