Find Last Instance of Header, Select to end of Data and copy

Sub FindLast()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LCol As Long, Found As Range

LCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
Set Found = ws.Range(ws.Cells(1, 1), ws.Cells(1, LCol)).Find("Dog", SearchDirection:=xlPrevious)

If Not Found Is Nothing Then Found.Offset(1, 0).Select

Range(ActiveCell, ActiveCell.End(xlDown)).Select

End Sub



The above is what I have so far, with all but the last line finding the last instance of the header of "Dog" in Sheet1. It's the last line that's causing issues. I have tried every conceivable method of selecting down the column, but I keep getting error 400. Any help appreciated.

End if missing

Please Login or Register  to view this content.

Or(I am guessing)

Please Login or Register  to view this content.

That hasn't worked. Good spot, but it is still showing the same error message each time.

When I run the code on the attached, I did not get an error. What are you trying to achieve?

Please Login or Register  to view this content.

This may make it a bit clearer. I need the macro to find the rightmost column of "Address", copy and paste the data over to the column "Area" in sheet2, with the end goal to be looking as I have it in sheet 3.

Please Login or Register  to view this content.

I have amended your code. I have also added my own, but prone to error.

Works perfectly, thanks you very much.