Transposing column information into multiple rows

Hi,

I'm new to Macros. I'm trying to analyze the time spent by each system for a defect if the defect spans across multiple systems. I have the information stored as single row for each defect where in each system is represented as a column header.

Can some one help to put this defect details in multiple rows. Say defect1 spans across 3 systems then I need 3 rows for the defect1 with the system names separated and their corresponding time spent.Only if the time spent has a value ( non empty) then the row should be created for that system.
Enclosing the sample xls with the current view and desired output.

The Multiple app column is the count of applications the defect has traversed. The first 2 columns ( Defect Id, Project No) should be repeated and based on the multiple app count the next 2 columns ( Sys working on defect, time spent) should be transposed. These details are needed in a separate (new) worksheet.

Hi Igomathi and welcome to the forum.
Find the attached with the following code

Option Explicit

Sub FirstMacro()
Dim RowCtr As Double
Dim ColCtr As Double
Dim LastRow As Double
Dim BottomRow As Double

LastRow = Cells(2, 1).End(xlDown).Row

For RowCtr = 3 To LastRow
    For ColCtr = 5 To 9
        If Cells(RowCtr, ColCtr).Value > 0 Then
            BottomRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
            Cells(BottomRow, "A").Value = Cells(RowCtr, "A").Value
            Cells(BottomRow, "B").Value = Cells(RowCtr, "B").Value
            Cells(BottomRow, "C").Value = Right(Cells(2, ColCtr).Value, 5)
            Cells(BottomRow, "D").Value = Cells(RowCtr, ColCtr).Value
        End If
    Next ColCtr
Next RowCtr

End Sub