Macro to clear Text on last sheet

[howard]

I would like to clear all text below the last value in Col BA and 10 cols to the right on the last sheet


I have tried to right code to do this but the text is not cleared

It would be appreciated if someone could assist me

 Sub Clear_UnwantedTextlastRow()
Dim LastRow As Double
Dim LastCol As Double
    Dim RowCtr As Double

    LastRow = Cells(Rows.Count, "BA").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Cells(53, LastCol + 1) = "Product Cost"

   
For RowCtr = 2 To LastRow
Cells(RowCtr, LastCol + 1).Resize(, 10).ClearContents

    Next RowCtr


End Sub

 

[MARK858]

One way maybe

Sub Clear_UnwantedTextlastRow()
    Dim BA_Last As Range
    With Sheets(Sheets.Count)
        Set BA_Last = .Range("BA:BA").Find("*", , xlValues, , xlByRows, xlPrevious).Offset(1)
 
        Range(BA_Last, .Cells(.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row, BA_Last.Offset(, 10).Column)).ClearContents
    End With
End Sub

 

[howard]

Many thanks for the help

 

[MARK858]

You're welcome