Effective way to copy data

Hi, Good morning,

If it is possible, I'm looking to do a code that will do the following steps :

-Open a Workbook (data)
-Search for the year 2013 in all the cells
-Go two rows above it and two columns to the left and select the range to the lowest row and last column
-Paste value in my other workbook
-Repeat (loop) for all the worksheets of the data workbook

I need your ideas concerning the two steps in bold. I know you can do the following concerning the value "2013" :

Dim rg as Range
For each rg in Worksheet("sheet1")
If rg.value = "2013" Then rg.Offset(-2,-2)

However, I have no idea how to select and copy the whole area. The thing is that it is not a defined area and it can moved through time and change except for the years.

Thank you

It will appear multiple times but I may use another value to make it more convenient.

Thank you Norie. Your answers are always fast and to the point.

Sounds interesting.

Does it reduce the size of the code and the speed of execution ?

Ok, I might take a look into it if my first idea on how to build this code fail.

Thank you Norie.

Okay, I need some backup help. I tried to work with xlDown. However, I need to repeat end(xldown).end(xldown).end(xldown).... to get to the end of my data because of the blanks. So, instead, I'm trying to make a count to the bottom row and use it to define my range to copy. But, I just can't seem to define the right syntax.

Sub codeX()
    Dim wbTarget As Workbook, rg As Range, rgCopy As Range, wbthis As Workbook, ws As Worksheet, lastrow As Long
    Set wbTarget = Workbooks("BPCdata.xlsm")
    Set wbthis = Workbooks("Dashboard.xlsm")
        
    wbthis.Worksheets(1).Cells.Clear
        
        wbTarget.Activate
        For Each rg In Worksheets(2).UsedRange
            If rg.Value = "BIZTYPE: 123" Then
                lastrow = Range("A" & Rows.Count).End(xlUp).Row
                Set rngCopy = Range(rg.Offset(-3, 0), rg.Offset(-3, 0).lastrow.End(xlToRight))
                rngCopy.Copy
                wbthis.Worksheets("Donnees").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            End If
        Next rg
        
End Sub

My problems are from the two code in bold font.