Macro to delete text from "Notes from Statements" to last row containing Data

[howard]

I have tried to write code to clear data in Col A from text "Notes from Statements" to last row containing Data


However, it is clearing text above NOTES TO STATEMENTS


It would be appreciated if someone could amend my code

 Sub ClearNotes()

 Dim fr As Long, lr As Long
fr = ActiveSheet.Range("A:a").Find("*" & "NOTES TO STATEMENTS*").Row
lr = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range(Cells(fr, 1), Cells(lr, 1)).EntireRow.Delete
    
End Sub

 

[Fluff]

Try it like

fr = ActiveSheet.Range("A:a").Find("NOTES TO STATEMENTS", , , xlPart).Row

 

[howard]

Thanks for the help Fluff

When running the macro, I get "Object variable or With block variable not set"

I have highlighted the item in Yellow where the rows are to be deleted i.e from "Notes to Statements" up to the last row containing data

Please see link below for workbook sample data

Kindly test and amend code

Macro to Delete from Certain Text to Last Row Containing Data.xlsm

1drv.ms

 

[Fluff]

You get the error because there are no rows that contain "NOTES TO STATEMENTS"

 

[howard]

Thanks for pointing this out. Code now runs smoothly

 

[Fluff]

You're welcome & thanks for the feedback.