Functions On Imported Data That Can Change Location In Table

I am trying to achieve can not be based on a range of rows or cells it must as this data is imported from a forecasting application and the location of the targets may change.

Perhaps an offset to the current selection can be used some how, but have a look-see if you know where Im coming from.

'I have used this to find a target in a data range.

Dim r1 As range

Public Sub FindDataIn Range(r As Range, target As Variant)

Set r1 = r.Find(target)
If r1 Is Nothing then
Msg Box target & " was not found"
Else
r1.Select
End If
End Sub

'Then I inserted and Named this procedure to find the data on various assumptions or targets - SUCH AS THE VALUE "14306".

FindDataInRange ActiveSheet.Range (A1:A226), "14306"
Selection.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=x1Down
Selection.EntireRow.ClearContents

Then I write this again for another Target such as 14307 and it repeats

The result is that it finds the target cell I get an empty row above the two rows that contain that target. (LET ME EXPLAIN WHAT I MEAN BY TWO ROWS)

The thing is there are two rows containing 14306 in that range and the range is sorted ascending so that they are positioned one under the other. Each row has different forecast totals beside this number because one is an export SKU and one is a Domestic.

What I want to do is combine the two rows as one with one row of forecast totals for the number rather than two.

Like this:
14306big Widget Domestic 26 89 (This is combined as a new row)

Instead of this:
14306big Widget Export 12 14 (These 2 rows are then deleted)
14306big Widget Domestic 14 75

Also the Forecast totals run across 12 columns (one for each month) and then there is a column for year totals of each row that needs to remain the same.

Most important this here is this cannot be based on a range it must as this data is imported from a forecasting application and the location of the targets may change.