Rows to Column (Transpose) with one Heading

[satish gubbi]

Hi,

Request your help in transposing the data (rows to column) with one common heading.

I have attached herewith the sample data and required result in the file.

kindly help me in this regard

Regards,
Satish Gubbi

[Bob Phillips]

Public Sub RearrangeData()
Dim lastrow As Long
Dim i As Long

    With ActiveSheet
    
        lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
        For i = lastrow To 1 Step -4
        
            .Cells(i - 2, "B").Value = .Cells(i - 2, "C").Value
            .Cells(i - 2, "D").Value = .Cells(i, "C").Value
            .Cells(i - 2, "C").Value = .Cells(i - 1, "C").Value
            
            .Rows(i - 1).Resize(3).Delete
        Next i
        
        .Range("B1:D1") = Array("VAT 14.5%", "Net Product", "Sales")
        
        lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range("B2").Resize(lastrow - 1).NumberFormat = "#,##0.00"
    End With
End Sub

[satish gubbi]

Thank you very much XLD, I will check the code and I will post the status.