VBA code om gegevens te wissen in elke 8e rij

[SandyH]

goeiedag,

Ik heb een excelfile waarbij dagelijks nieuwe gegevens moeten worden overgeschreven (of gewist worden), dit is in een file vanaf cel H5 tot S5, en dan opnieuw voor 8 rijen lager (H13 tot S13), enz....

Ik heb onderstaande eenvoudigde code geschreven (ben een beginner, dus kennis is (nog) erg beperkt), waarbij ik eerst een bereik gemaakt had met de naam ClearVoorstelAfroep (met selectie van elke 8e rij die ik wil wissen).
Probleem is dat als er nieuwe lijnen bijkomen (kan elke dag variëren), dan worden die extra lijnen niet meegenomen (omdat ze niet in mijn bereik zitten)

Kan iemand me helpen met een code waarbij er elke 8 rijen de inhoud van de cellen van col H tem col S gewist wordt, ongeacht het aantal rijen er zijn ?

Sub VoorstellenWissen()

Range("ClearVoorstelAfroep").ClearContents

End Sub

Alvast bedankt !

 

[SjonR]

zo?

Sub SjonR()
For i = 5 To Range("H" & Rows.Count).End(xlUp).Row Step 8
    Cells(i, 8).Resize(, 12).ClearContents
Next
End Sub

 

[SandyH]

Bedankt ! werkt prima

 

[JEC.]

Nog een manier

Sub j()
Cells(1).CurrentRegion.Name = "ar"
[ar] = [if((1*(Mod(Row(ar)+3,8)*ar<>0)*ar)=0,"",ar)]
End Sub

 

[HSV]

Als er formules in staan zijn ze wel weg natuurlijk.

Range("h1", Cells(Rows.Count, 19).End(xlUp)).Name = "ar"
[ar] = [if(mod(row(ar)+3,8)=0,"",ar)]

 

[JEC.]

Klopt, helaas weet ik niet hoe het bestand er uit ziet