For Each Cell In Range("A24:A224")
For Each ws In ThisWorkbook.Worksheets
  For Each i In ThisWorkbook.ActiveSheet.Range("G2:H200")
    If Cell.Value = i.Value Then
    ActiveCell.Offset(0, 1).Select
    Cell.Value = Cell.Value + i.Value
    End If
  Next i
  Next ws
  Next Cell