Copy and Paste Transpose using VBA

Please see yellow banner on how to attach a sample workbook.

and are you still using Excel 2010: if not please update your profile with your current version.

Please Login or Register  to view this content.

Gee, John, that looks awfully familiar. You beat me to it!
My very similar solution assumes there's only one table on the sheet, and re-formats it to display the new "data shape":

Please Login or Register  to view this content.

@abduldedysubhansyah - To simplify filtering, you might want to consider including the description on every row. The code could be modified to do so very easily.

An alternative to VBA is Power Query where you can unpivot your data

Please Login or Register  to view this content.

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

A VBA demonstration just revamping table #1 :

PHP Code: 

Sub Demo1()
        Dim V, R&, W(), C%, L&
    With Sheets("Sheet2").ListObjects(1)
    If .ListColumns.Count > 3 And (.ListColumns.Count And 1) Then
        V = .DataBodyRange
        R = Application.CountA(V):  If R = 0 Or R Mod 3 Then Beep: Exit Sub
        ReDim W(1 To R / 3, 1 To 3)
    For R = 1 To UBound(V)
    For C = 2 To UBound(V, 2) Step 2
        If Not IsEmpty(V(R, C)) Then L = L + 1: W(L, 1) = V(R, 1): W(L, 2) = V(R, C): W(L, 3) = V(R, C + 1)
    Next C, R
       .Range.Columns(4).Resize(, .ListColumns.Count - 3).EntireColumn.Delete
       .Range.Range("B1:C1") = Array("Material", "No")
        If L Then .DataBodyRange.Resize(L) = W
       .Range.Columns.AutoFit
    End If
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄