clear all raws after 5000th

[pls123]

hello again !
How can i do that ???
tx !

 

[Gary Keramidas]

Worksheets("Sheet1").Rows("5001:" & Rows.Count).Clear