Need help with a marco please

[buster01]

I originally posted a request for help with sorting, matching and adding data. JLGWhiz responded with the macro shown below. It works great and I really appreciate it. The problem I am having is getting it to work on the rows and columns of the sheet I need it to. The data is on sheet footing starting on row 127 through row 141 in Column B, C and D (see below example of data). I would like for the answer to show up starting on row 143 through 157 in the same column B, C and D. There is data above these rows but no data is below row 142 if this helps. Also I would like to use the same macro on another sheet. Sheet is FTG & Wall in the same folder. The data starts on row 284 through 298 Column B, C and D. I would like the answer to start in row 300 through 314 in column B, C and D. On this sheet there is data above and below these rows.

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!

<tbody> </tbody>

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 Sub
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.

 

[JLGWhiz]

The first one is for sheets footing and the othe for FTG & wall.

Sub consItems2()
Dim sh As Worksheet, lr As Long, sCell As Range
Set sh = Sheets("footing") 'edit sheet name
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row 'Find last row in column B
sh.Range("B127:D141").Sort Range("B127"), xlAscending 'Sort Range
    For i = 127 To 141 'Initialize loop with parameters
        If sh.Cells(i, 2) > 0 Then 'Eliminate zeroes from action
            With sh
                If .Cells(143, 2) <> "" Then
                     Set sCell = .Cells(Rows.Count, 2).End(xlUp)(2) 'establis variable for sum cell
                Else
                     Set sCell = .Cells(143, 2)
                End If
                If Trim(.Cells(i, 2).Value) = Trim(.Cells(i + 1, 2).Value) Then 'compare cells
                     .Cells(i, 2).Resize(1, 2).Copy sCell
                     'add col D for matched items
                     sCell.Offset(0, 2) = .Cells(i, 4).Value + .Cells(i + 1, 4).Value
                End If
            End With
        End If
    Next
End Sub

Sub consItems3()
Dim sh As Worksheet, lr As Long, sCell As Range
Set sh = Sheets("FTG & Wall") 'edit sheet name
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row 'Find last row in column B
sh.Range("B254:D298").Sort Range("B254"), xlAscending 'Sort Range
    For i = 254 To 298 'Initialize loop with parameters
        If sh.Cells(i, 2) > 0 Then 'Eliminate zeroes from action
            With sh
                If .Cells(300, 2) <> "" Then
                    Set sCell = .Cells(Rows.Count, 2).End(xlUp)(2) 'establis variable for sum cell
                Else
                    Set sCell = .Cells(300, 2)
                End If
                If Trim(.Cells(i, 2).Value) = Trim(.Cells(i + 1, 2).Value) Then 'compare cells
                    .Cells(i, 2).Resize(1, 2).Copy sCell
                    'add col D for matched items
                    sCell.Offset(0, 2) = .Cells(i, 4).Value + .Cells(i + 1, 4).Value
                End If
            End With
        End If
    Next
End Sub

 

[buster01]

Mr. JLGWhiz I appreciate your response very much and I apologize for the way the information is displayed
so I am trying it in a different format. Hopefully it won't shove all the information to one side.
The last two Marco you sent me do not work. It is probably me. But anyway I am going to try this again.
This is my first time to post on any site.
The first Macro you sent works fine except I can't get it adjusted to work on the worksheets I need it to
Below is a copy of one of the worksheet I would like for it to work on. The work sheet name is footings.
All of the data starting at column B row 284 through column C row 298 is compiled from information above
I would like to start this Marco on column B row 301 through column D row 315 I will have more information
below row 317. When I run the Marco you first sent me on a test page. The Marco ran on top of the data,
also it gives me an error on this line Set sCell = .Cells (I - 1, 1) .Offset (0, 2) However it would run
I have tried to adjust the Marco but can't seem to get it to work
	Columns
	B	C	D
Rows
283	Length of L Bars	Size of L Bars	# of Bars
284	9" x 3'	3	25
285	12" x 2'6"	4	40
286	10" X 4'	5	34
287	8" x 2'	3	50
288	9" x 3'	3	50
289	8" x 2'	3	25
290	6" x 1'6"	5	50
291	6" x 1'6"	5	25
292	10" x 4'	5	50
293	12" x 2'6"	4	34
294	0	0	#DIV/0!
295	0	0	#DIV/0!
296	0	0	#DIV/0!
297	0	0	#DIV/0!
298	0	0	#DIV/0!
299
300	Answer I am Looking For
301	9" x 3'	3	75
302	8" x 2'	3	75
303	12" x 2'6"	4	74
304	10" X 4'	5	84
305	6" x 1'6"	5	75
306	0	0	0
307	0	0	0
308	0	0	0
309	0	0	0
310	0	0	0
311	0	0	0
312	0	0	0
313	0	0	0
314	0	0	0
315	0	0	0
316
I need the same set up as above on another worksheet called FTG & Wall. The data starts on column
B row 284 through D 298. I would like it to run starting on column B row 300 through D row 314.

<colgroup><col width="64" style="width: 48pt;"> <col width="141" style="width: 106pt; mso-width-source: userset; mso-width-alt: 4910;"> <col width="120" style="width: 90pt; mso-width-source: userset; mso-width-alt: 4189;"> <col width="75" style="width: 56pt; mso-width-source: userset; mso-width-alt: 2606;"> <tbody> </tbody>