Sub Test()
Dim sortDiap As String, startCell As String, startRow As Long, startCol As Integer
sortDiap = "A2:C26" ' diapazon dlya sortirovki
startCell = "C2" ' pervaya yacheyka stolbca s datami
startRow = 2 ' nomer pervoy stroki s datami
startCol = 3 ' nomer stolbca s datami
Range(sortDiap).Sort Key1:=Range(startCell), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
While Cells(startRow, startCol) <> ""
If Cells(startRow, startCol) > Now Then
'Cells(startRow, startCol).Select
Rows(startRow & ":" & startRow).Select
Selection.Delete Shift:=xlUp
Else
startRow = startRow + 1
End If
Wend
End Sub