VBA LastRow to Specific Text

[decadence]

Hi, Is it possible to set a range in a column so it's set from last row to specific text found (header) but doesn't include the header.

Example 1 - Sets the range so only the 2 rows found (Nothing,Something)
[TABLE="class: grid, width: 250"]
<tbody>[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Specific Text[/TD]
[/TR]
[TR]
[TD]Nothing[/TD]
[/TR]
[TR]
[TD]Something[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


Example 2 - Sets the range so only the 6 rows found (Something,Something,Something,Something,Nothing,Nothing)

[TABLE="class: grid, width: 250"]
<tbody>[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Specific Text[/TD]
[/TR]
[TR]
[TD]Something[/TD]
[/TR]
[TR]
[TD]Something[/TD]
[/TR]
[TR]
[TD]Something[/TD]
[/TR]
[TR]
[TD]Something[/TD]
[/TR]
[TR]
[TD]Nothing[/TD]
[/TR]
[TR]
[TD]Nothing[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[decadence]

Yes I now realise A1 is the start point, I have a few words that I need finding so is it possible to pass it to an array?
The words I am trying to find are "Temp", "Permanent", "Part Time", "Full Time" and "Flexi-time"

 

[Fluff]

Try

Sub GetRng()

    Dim Ary As Variant
    Dim Cnt As Long
    Dim Fnd As Range
    Dim Rng As Range
    
    Ary = Array("[COLOR=#ff0000]Sold By[/COLOR]", "[COLOR=#ff0000]Sold On[/COLOR]", "[COLOR=#ff0000]Qty[/COLOR]")
    For Cnt = LBound(Ary) To UBound(Ary)
        Set Fnd = Cells.Find(Ary(Cnt), Range("A1"), xlValues, xlWhole, xlByRows, xlNext, False, False)
        If Not Fnd Is Nothing Then
            Set Rng = Range(Fnd.Offset(1), Cells(Rows.Count, Fnd.Column).End(xlUp))
        End If
        Rng.Select
        ' do something?
    Next Cnt
    
End Sub

Replacing values in red to match your criteria

 

[decadence]

This is Perfect, Thank you Fluff and njimack for taking time to help me. It's much appreciated

 

[Fluff]

Glad we could help & thanks for the feedback