In your attached workbook, in Sheet1:
Put the macro below into a standard code-module.
Make sure Sheet1 is the active sheet
Run the macro. 
Sub blah()
totRow = 10
Base = Range("A" & totRow).Value
Set HighlightCells = Intersect(Rows(totRow), Range("B:B,E:E,H:H,K:K,N:N,Q:Q,T:T,W:W,Z:Z,AC:AC,AF:AF,AI:AI"))
Set adds = Intersect(Rows(totRow), Range("AJ:AQ"))
For Each cll In HighlightCells.Cells
  For i = adds.Count To 1 Step -1
    Set v = adds.Cells(i)
    If cll.Value >= Base + v.Value Then
      v.Offset(1).Copy
      cll.PasteSpecial Paste:=xlPasteFormats
      Exit For
    End If
  Next i
Next cll
Application.CutCopyMode = False
End Sub
Lots of hard coding, lots of assumptions. It's a start. Let's see if it's doing the right thing first.