Find Word and Loop to End

[Tellm]

I receive a report which contains 2 sets of data and I use this data to create an output file. The problem I have is that the output file I create uses the second set of data and the start point of this data varies from report to report. I have used the find function and offset to get the first line of where my output file starts, but now that I am there how do I use this cell value to loop through to the last cell in the column which contains data? I have provided an extract of the point I am stuck at. thanks for anyone who can help.

Please Login or Register  to view this content.

[nathansav]

For x = ActiveCell.Offset(1, 0) to ActiveCell.Offset(1, 0).end(xlDown)

[Tellm]

Nathan, thanks for getting straight back on this. However, I get a runtime error 13 Type Mismatch on this line

[AB33]

Amended code. You need to include an error trapping if nothing is found.
This is not a final code. If you could attach a sample, it is easy to fix it.

Please Login or Register  to view this content.

[Tellm]

Thank you both for your efforts AB33 this works perfectly - I shall complete the post with Solved