Macro to find a cell containing text, select range offset, cut and paste to lower rows

I am trying to find a macro that can search a sheet for any cell that contains the text “Not on AOI,” selects a range that contains that cell, 81 rows below, and 2000 columns to the right, then cuts the selection and pastes it 162 rows below the original cell where the text was found. What's hard is that the number of columns between the “Not on AOI” cells is variable.

I’m very new to excel macros and the parts I think I’ve put together are:

Cells.Find("Not on AOI", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Activate

Range(ActiveCell,ActiveCell.Offset(81,2000)).Select
Selection.Cut
ActiveCell.Offset(162,0).Select
Selection.Paste