Locate Data And Copy/Paste X Rows

I needed to find "406" which is in A5280 copy the previous 160 rows X 3 columns to A5281.

Because of other factors involved I now realise it would be better to have the macro do the following.

1. Find "04/06" (in A5123)
2. Copy from 2 rows above this cell (A5121) down to (C5280)
3. Paste into A5281


Sub ACopy3()

Const intRowsToCopy As Integer = 160
Dim rngFound As Range
Dim Ro
Dim Col

Application. ScreenUpdating = False
Set rngFound = Columns("A:A").Find(What:="406", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
Range(rngFound.Offset((intRowsToCopy - 1) * (-1), 2), rngFound).Copy rngFound.Offset(1, 0)
Application.ScreenUpdating = True
End Sub