在Excel VBA中，如何找到一个子字符串，选择它下面的其余列，然后将所选区域移动到另一个工作簿？

Question

UPDATE: I realized that A1 has a keyword I'm looking for, which I didn't see and caused the issue that came up.

I need to find a word - "P/position", "S/site", or "Residue," then copy everything in the column below this to a column in a sheet in a different workbook ("ExtractedColumns," "Sheet1"). I was able to do all of this with the first two blocks of code in my macro - I was looking for different words and pasted to different columns, but it worked for those. And when I ran the following code on a different sheet, it worked. However, the following code copies everything in column A starting from A2, but the substring it was supposed to locate was in column E- so it was supposed to copy from E5 and below. So why does this block of code select from a completely different column? ("curr" is a range)

For Each curr In Range("A1:S10")
    If InStr(1, curr.Value, "residue") > 0 Or InStr(1, curr.Value, "Residue") > 0 Or InStr(curr.Value, "Position") > 0 Or InStr(curr.Value, "position") > 0 Or InStr(1, curr.Value, "Site") > 0 Or InStr(1, curr.Value, "site") > 0 Then
    Range(curr.Offset(1), Cells(Rows.Count, curr.Column).End(xlUp)).Copy Destination:=Workbooks("ExtractedColumns").Sheets("Sheet1").Range("G2")
        Exit For
    End If
    Set curr = curr.Offset(1)
Next

Answer 1

Just tested it, works fine for me. Are you sure that A1 does not contain any of the strings you are searching for?

Two small things: if you want inStr to work case-insensitive, you can set the compare-parameter to vbTextCompare, eg

InStr(1, curr.Value, "residue", vbTextCompare)

Secondly, what is the 6th line for? The for-loop iterates through all cells in the range, why do you manually change it to the next cell?