Create a list from multiple cells with text

[wzde14]

Hi all,

I've been searching for an answer to this for some time now and I'm sure there is probably a simple solution. I have a large table in which some cells have text and the rest are blank. On a separate sheet I would like to have a list to include the text from the cells and disregard the blank ones. If possible, I'd like it to be conditional: In column H I have some cells which say "Procedure did not work" and the corresponding row has cells with text and the rest blank (I:AY), so in my new sheet, I'd like a list of all text in the rows where H says "Procedure did not work". I've tried iferror, lookup...no joy as yet.

I've popped a table here to try and explain what I need. I'm after list of all of the 'issues'.
Thank you for any help with this!
Adele

Procedure working or not	Time test started and ended	Resetting passwords	Randomly closing the browser	Part of website 1	Part of website 2	Part of website 3	Part of website 4
Procedure worked	12:05:00	Worked fine
Procedure did not work	13:17:00			Issue here	Issue here
Procedure worked	12:43:00	Worked fine	OK
Procedure did not work	14:32:00				Issue here		Issue here

<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[Fluff]

Try

Sub MoveData2NewSht()
' wzde14

    Dim UsdRws As Long
    
    UsdRws = Sheets("UIL").Range("H" & Rows.Count).End(xlUp).Row
    
    Sheets("UIL").Columns("H:H").AutoFilter
    Sheets("UIL").Range("H1:H" & UsdRws).AutoFilter Field:=1, Criteria1:= _
        "Procedure did not work"
    Sheets("UIL").Range("A1:AY" & UsdRws).SpecialCells(xlVisible).Copy _
        Sheets("New").Range("A1")

End Sub

Changing sheet names to suit your data.