cellák, sorok üritése dátum alapján

Szia!

A leírásodból nem derült ki, hogy melyik oszlopok adatait akarod töröltetni. Úgy gondolom, hogy a B:I tartományban lévőket.
Célszerű a füzet megnyitásakor eltüntetni a lejárt idejű bejegyzéseket, ezért az Open eseménybe érdemes betenni, a ThisWorkbook laphoz kell rendelni a makrót.

Private Sub Workbook_Open()
    Dim sor As Long, usor As Long
    
    sor = 5
    Do While Cells(sor, 2) <> ""
        If Cells(sor, 2) < Date Then
            Range("B" & sor & ":I" & sor + 1).Delete Shift:=xlUp
        Else
            sor = sor + 2
        End If
    Loop
End Sub

A Do-Loop ciklussal megyünk végig a B oszlop dátumain, az 5. sortól kezdve.
A Shift:=xlUp határozza meg a törlés irányát. Ha volt törlés, az alatta lévő adatok a törölt sor helyére ugranak fel, nem változtatjuk a sor változó értékét, ha nem volt, növeljük a sor értékét kettővel.
A ciklus addig fut, míg a B oszlopban talál adatot.

Itt az újabb makró:

Private Sub Workbook_Open()
    Dim sor As Long, usor As Long
    
    sor = 5
    
    With Sheets("Munka1")   'ide a saját lapod nevét írd a Munka1 helyett
        'lejárt időpontok adatainak törlése
        Do While .Cells(sor, 2) <> ""
            If .Cells(sor, 2) < Date Then
                .Range("B" & sor & ":I" & sor + 1).Delete Shift:=xlUp
            Else
                sor = sor + 2
            End If
        Loop
        
        'formátum másolása
        If .Cells(5, 2) > "" Then
            .Range("B5:I6").Copy
            .Range("B7:I49").PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
        End If
    End With
End Sub

Igazad van, ez a kézenfekvő megoldás nem jutott eszembe.

A feltétel (If .Cells(5, 2) > „” Then) sem kell, elég ez:

        .Range("CH3:CO4").Copy
        .Range("B7:I28").PasteSpecial xlPasteFormats
        Application.CutCopyMode = False

Figyeld meg, hogy a másolandó formátumba a CH4:CO4 tartományt is be kell venni, hogy az alacsony sorok fekete háttere is másolódjon.

#HIV! hibát ad neked a képlet. Azt is be kellene írni törlés után.
Ha az a baj, hogy jönnek felfelé a fehér cellák, akkor a feketeséget a 90. sorig mindig formázd le.