Maybe this might assist
Sub blah()
    totRow = 10
    Dim sht as Worksheet
    Dim shtAry as Variant
    Set shtAry = Array("Peaches", "London", "Paris", "NewYork")
    For each sht in shtAry
        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:=xlPasteFormat
                   Exit For
                End If
            Next i
        Next cll
    Next Sht
    Application.CutCopyMode = False
End Sub