Effective way to copy data

You can try this, though if there are a lot of blank areas in your data then another approach might be needed.

Dim rg as Range
Dim rgCopy As Range
Dim LastRow As Long
Dim LastCol As Long

    For each rg in Worksheet("sheet1").UsedRange
        If rg.value = "2013" Then 

            LastRow = Cells(Rows.Count, rg.Offset(,-2).Column).End(xlUp).Row
            LastCol = Cells(rg.Offset(-2).Row, Columns.Count).End(xlToLeft).Column

            Set rngCopy = Range(rg.Offset(-2,-2), Cells(LastRow, LastCol))
        End If
    Next rg