Macro rto clear Data from where total value appears in Col A

I have data on Sheet "Data"


I have tried to write code to clear data from where "Total value" appears to two rows below this and 6 columns to the right of where "Total value appears"


I cannot get my code to clear this data


It would be appreciated if someone could kindly assist me

 Sub Clear_lastValue()
With Sheets(2)

   Dim c As Range

    Set c = .Columns(1).Find("Total Value", , , 1)
         
.Cells(LR).Resize(2, 6).ClearContents
 
    End With
End Sub

I have attached sample data

You try:

Sub Clear_Excelnewbie()
Dim v As String, lr As Long
    With ThisWorkbook.Sheets("data")
        v = "Total Value"
        lr = .Range("A:A").Find(What:=v, LookIn:=xlValues).Row
        .Cells(lr, 1).Resize(2, 6).ClearContents
    End With
End Sub

Thanks for the help Guys, much appreciated


Jindon what is the significance of ?

,,,1 in formula Find("Total Value", , , 1)

Range.Find method parameters

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
Constant 1 for xlWhole, 2 for xlPart.
When names of the named arguments are omitted, you need to keep the order of parameters, so equivalent is

Sheets(2).Columns(1).Find("Total Value", LookAt:=xlWhole)

HTH

Thanks for the explanation