VBA help needed to search two text strings and select ranges then clear cells

Folks,

Please help me to create a macro to search for two text strings "Name" and "Total" in Column "A" then select range in between these text strings and Clear Cell Contents of offset column 3 (Column "D").


I have attached the workbook of what I am trying to accomplish.

Thanks in advance.

Hi krjoshi,

Try this:

Sub ClearBetween()
    Dim TopWord As String
    Dim BottomWord As String
    Dim LastRow As Double
    Dim RowCtr As Double
    Dim TopRow As Double
    Dim BottomRow As Double

    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    TopWord = "Name"
    BottomWord = "Total"
    TopRow = 0
    
        For RowCtr = 1 To LastRow

            If Cells(RowCtr, "A") = TopWord Then
                TopRow = RowCtr
            End If
            
            If Cells(RowCtr, "A") = BottomWord And TopRow <> 0 Then
                BottomRow = RowCtr
                Range(Cells(TopRow + 1, "D"), Cells(BottomRow - 1, "D")).ClearContents
                TopRow = 0
            End If     
   
        Next RowCtr
End Sub

Hi Marvin, Excellent code. Thank you so much

Joshi