regels verwijderen op datum waarde

[pasan]

Hallo
Met de volgende code wordt er gezocht naar een datum ouder dan 13 maand in een kolom
hierna wordt een cel geselecteerd met een offset (,-1) op zich gaat dit wel goed
alleen heb ik ook kolom titels en hier wordt meteen de 1e cel geselecteerd dit gaat niet goed helaas want in de eerste rij staan helemaal geen datums

With ActiveWorkbook.Sheets("blad1")
LastRow = cells(Rows.Count, "CP").End(xlUp).Row - 1
For B = 1 To LastRow
If Not .cells(B, "CP") >= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then GoTo eind
If .cells(B, "CP") >= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then .cells(B, "CP").Offset(, -1).Select

selection.Resize(, 5).Delete Shift:=xlUp
eind:
Next
End With

Als de eerste regel wordt geselecteerd word deze ook verwijderd
de regels moeten alleen verwijderd worden als in kolom CP een datum staat die ouder is als 13 maanden

 

[HSV]

Lukt het hiermee?

Sub hsv()
Dim i As Long
  For i = Cells(Rows.Count, 94).End(xlUp).Row To 2 Step -1
  If DateValue(Cells(i, 94)) <= DateSerial(Year(Now), Month(Now) - 13, Day(Now)) Then
   Cells(i, 94).Offset(, -1).Resize(, 5).Delete shift:=xlUp
 End If
Next
End Sub

 

[pasan]

Vanmiddag ff proberen

inmiddels getest en Helemaal Goed bevonden haha
bedankt HSV :thumb::thumb::thumb: