Sub blockweiseAberUhrzeiten()
Dim lngRowsCount As Long, lngRow As Long
With ActiveSheet
lngRowsCount = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngRow = lngRowsCount To 2 Step -1
If (IsDate(.Cells(lngRow, 1).Value) And IsDate(.Cells(lngRow, 1).Offset(-1, 0).Value)) = True Then
If DateDiff("d", .Cells(lngRow, 1).Value, .Cells(lngRow, 1).Offset(-1, 0).Value) < 0 And IsDate(.Cells(lngRow, 1)) = True Then
.Cells(lngRow, 1).EntireRow.Insert xlShiftDown
End If
End If
Next
End With
End Sub