clear contents vba

[ummjay]

Hi! having some issues with my clear contents vba.

I want to clear anything thats in A7:J, there may be some cells with no data, or 0s, basically want to clear anything thats listed there.

I tried the below ,and it doesnt appear to clear everything.

lr = ActiveSheet.Range("A7:A" & Rows.Count).Find("").Row - 1
Set clrrng = Range("A7:J" & lr)
clrrng.ClearContents

Any ideas? Thanks!

 

[Joe4]

Try this:

'   Find last used row on sheet
    Dim lr As Long
    lr = ActiveCell.SpecialCells(xlLastCell).Row
   
'   Clear from A7 down to last row with column J
    Range("A7:J" & lr).ClearContents

 

[ummjay]

worked like a charm, thanks!

 

[Joe4]

You are welcome.