9" x 3' | 3 | 25 |

12" x 2'6" | 4 | 40 |

10" X 4' | 5 | 33.3333 |

8" x 2' | 3 | 50 |

9" x 3' | 3 | 50 |

8" x 2' | 3 | 25 |

6" x 1'6" | 5 | 50 |

6" x 1'6" | 5 | 25 |

10" x 4' | 5 | 50 |

12" x 2'6" | 4 | 33.3333 |

0 | 0 | #DIV/0! |

0 | 0 | #DIV/0! |

0 | 0 | #DIV/0! |

0 | 0 | #DIV/0! |

0 | 0 | #DIV/0! |

1. Sub consItems()

2. Dim sh As Worksheet, lr As Long, sCell As Range

3. Set sh = Sheets(1) 'edit sheet name

4. lr = sh.Cells(Rows.Count, 1).End(xlUp).Row

5. sh.Range("A2:A" & lr).EntireRow.Sort Range("A1"), xlAscending

6. For i = lr To 2 Step -1

7. With sh

8. Set sCell = .Cells(i - 1, 1).Offset(0, 2)

9. If Trim(.Cells(i, 1).Value) = Trim(.Cells(i - 1, 1).Value) Then

10. sCell = sCell.Value + sCell.Offset(1, 0).Value

11. Rows(i).Delete

12. End If

13. End With

14. Next

End Sub2. Dim sh As Worksheet, lr As Long, sCell As Range

3. Set sh = Sheets(1) 'edit sheet name

4. lr = sh.Cells(Rows.Count, 1).End(xlUp).Row

5. sh.Range("A2:A" & lr).EntireRow.Sort Range("A1"), xlAscending

6. For i = lr To 2 Step -1

7. With sh

8. Set sCell = .Cells(i - 1, 1).Offset(0, 2)

9. If Trim(.Cells(i, 1).Value) = Trim(.Cells(i - 1, 1).Value) Then

10. sCell = sCell.Value + sCell.Offset(1, 0).Value

11. Rows(i).Delete

12. End If

13. End With

14. Next

I don’t know how to contact JLGWhiz directly. So If I have made a mistake by posting this in this manned I am sorry. I am new at this but I want to follow the rules. I really appreciate the help I have received.