Creating a macro to rearrange data

ey guys- I'm rather new to creating and running macros, but I have a workbook that needs it's data rearrange. I have a sample before/after attached right now its

Jan Feb March
Item A $1 $2 $3
Item B $2 $3 $5
Item C $2 $6 $9


And I need

Item A Month Price
Item A Month Price
etc


Any help would be greatly appreciated thank you!

Hi
try this macro
you may have to change the names of the source or destination sheet, or the range of data to copy from

Sub rearrange_data()
Dim SourceSheet As Worksheet, DestSheet As Worksheet, SourceRange As Range, cn As Long, rn As Long, DestRow As Long
Set SourceSheet = Sheets("before")
Set DestSheet = Sheets("after")
Set SourceRange = SourceSheet.Range("A2:CG22")
DestRow = 2
For rn = 2 To SourceRange.Rows.Count
    For cn = 2 To SourceRange.Columns.Count
        DestSheet.Rows(DestRow).Columns(1).Value = SourceRange.Rows(rn).Columns(1).Value
        DestSheet.Rows(DestRow).Columns(2).Value = SourceRange.Rows(1).Columns(cn).Value
        DestSheet.Rows(DestRow).Columns(3).Value = SourceRange.Rows(rn).Columns(cn).Value
        DestRow = 1 + DestRow
    Next cn
Next rn

End Sub

Thanks for your help- I appreciate it. Your code worked well except that I am not getting a column for months in the rearranged data. I do however get the items and prices in the correct arrangement.

If it helps this is what I have rearranged the code to. My range of data is B970 to CI1061 but my months that I want to include are at C3:CI3. Any help?

Sub rearrange_data()
Dim SourceSheet As Worksheet, DestSheet As Worksheet, SourceRange As Range, cn As Long, rn As Long, DestRow As Long
Set SourceSheet = Sheets("Cans & Ends")
Set DestSheet = Sheets("Sheet4")
Set SourceRange = SourceSheet.Range("B970:CI1061")
DestRow = 2
For rn = 2 To SourceRange.Rows.Count
    For cn = 2 To SourceRange.Columns.Count
        DestSheet.Rows(DestRow).Columns(1).Value = SourceRange.Rows(rn).Columns(1).Value
        DestSheet.Rows(DestRow).Columns(2).Value = SourceRange.Rows(1).Columns(cn).Value
        DestSheet.Rows(DestRow).Columns(3).Value = SourceRange.Rows(rn).Columns(cn).Value
        DestRow = 1 + DestRow
    Next cn
Next rn

End Sub

Originally Posted by jeffreybrown

@MattMurdock,

I'm afraid your post does not comply with Rule 8 of our Forum RULES. Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser)to the cross-post. Expect cross-posts without a link to be closed a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

Sorry bout that, I will put a link next time