Searching a row A for 2 values - how to extend to Row U and copy + paste those to new sheet?

[anon500]

I have data pull that I would like to arrange and sort by finding 'tables' in the sheet and copying and pasting those tables out to different sheets

Sub SelectBetween()
On Error GoTo errhandler
Dim FinalRow As Integer

Worksheets("Dump").Activate
Range(Range("A:A").Find("test1").Offset(1), Range("A:A").Find("test2", Range("A:A").Find("test1")).Offset(-1)).Select
FinalRow = Cells(Rows.Count, "C").End(xlUp).Row
Selection.Copy
Worksheets("Sheet2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Exit Sub
errhandler:
MsgBox "No Cells containing specified text found"
End Sub

So above searches Sheet 'Dump' finds Test 1 to Test 2 table, copies only Range A1 and pastes into the cell I'm hovered over, how could this be changed to paste into Range A1?

The FinalRow = Cells(Rows.Count, "C").End(xlUp).Row doesn't do anything yet, I need to figure out how to put this into my code, I was trying to get it to select till final row instead of only Row A

Very bad coding practices probably!

 

[anon500]

No idea what you are asking for.

So basically, your code works awesome But instead of the 4th occurence of the first range, it needs to be the 4th occurence of the 2nd range (second thing it searches for)

 

[MARK858]

Fourth occurrence from the bottom up or Fourth occurrence from the top down?

 

[anon500]

Fourth from the top down, or first occurence from the bottom up - I think maybe if you can do the second one it would help me understand the code a little

 

[MARK858]

or first occurence from the bottom up

Would have saved a lot of code writing if you had asked for this in your previous post rather than the fourth occurrence

Set erow = Worksheets("Dump").Columns("A").Find("Test2", , xlValues, xlWhole, xlByRows, xlPrevious)

 

[anon500]

Would have saved a lot of code writing if you had asked for this in your previous post rather than the fourth occurrence

Set erow = Worksheets("Dump").Columns("A").Find("Test2", , xlValues, xlWhole, xlByRows, xlPrevious)

Thank you so much.

I am truly sorry....

 

[anon500]

Thank you Mark, I am truly greatful for the work you do here

 

[MARK858]

Happy it helped and welcome to the forum.