VBA Needed for Copying "X" # of IDs 3 times in separate rows and summing, separating and placing associated cost numbers and in another colum

[mrpayne]

Title is too long but here is an example of what I am trying to get:
I am a newbee when it comes to this type of coding so any help is greatly appreciated.

Example Input Worksheet #1 with Original Data
Column A (IDs) Column B Column C Column D Column E
12345 $2 $1 $6 $3
56789 $4 $1 $7 $5
35791 $5 $1 $8 $4

Example Output New Worksheet #2 using New VBA Code to create the numbers or sums. Need Macro as IDs will change monthly and sheet will need to recalc monthly.
Column A (IDs) Column B Notes and Comments
12345 $3 (Sum of Column B and C for this ID above for 1 of 3 same ID)
12345 $6 (Column D value above for 2 of 3 same ID)
12345 $3 (Column E value above for 3 of 3 same ID)
56789 $5 (Sum of Column B and C for this ID above)
56789 $7 (Column D value above)
56789 $5 (Column E value above)
35791 $6 (Sum of Column B and C for this ID above)
35791 $8 Same as above
35791 $4 Same as above

 

[rpaulson]

try this.

create a new sheet and name it "Results" (without the quotes)
then run this macro. make sure your main sheet is the active sheet.

Sub do_it()

wr = 1

With Worksheets("Results")
.Cells.ClearContents
For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row
.Cells(wr, "A") = Cells(r, "A")
.Cells(wr, "B") = Cells(r, "B") + Cells(r, "C")
.Cells(wr + 1, "A") = Cells(r, "A")
.Cells(wr + 1, "B") = Cells(r, "D")
.Cells(wr + 2, "A") = Cells(r, "A")
.Cells(wr + 2, "B") = Cells(r, "E")
wr = wr + 3
Next r
End With
End Sub

hth,
Ross

 

[mrpayne]

Thanks for the reply... I will check it out later today.