Clear data from a worksheet VBA

[Lenna]

Please suggest a VBA code that would remove data from row 8 to last row of a worksheet.

Thanks,

Lenna

 

[VoG]

Try

Sub btest()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Rows("8:" & LR).ClearContents
End Sub

 

[Lenna]

thanks!

 

[Rick Rothstein]

Try

Sub btest()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Rows("8:" & LR).ClearContents
End Sub

Excel clears cells more than quick enough that this one-liner should work fine as well (it may be confining itself to the bottom of the UsedRange automatically)..

Sub ClearRowsFromRowEighthOnDown()
  Rows("8:" & Rows.Count).ClearContents
End Sub