Macro for transposing values

Apologies for reopening the thread, however my requirements have changed slightly (set out below). I now need to transpose three cells of data and excluding the 'period' header in the example above. Examples set out below:

From this:

Transposed.PNG

To this:

Book 1 [51863].PNG


Here's the current code:

Sub Data_transpose()
Dim StartRange As Range
Set StartRange = Sheet1.UsedRange
Sheets.Add.Name = "Transposed"
ActiveCell.FormulaR1C1 = "Member Name"
ActiveCell.Interior.ColorIndex = 48
Range("B1").Select
ActiveCell.FormulaR1C1 = "Period"
ActiveCell.Interior.ColorIndex = 48
Range("C1").Select
ActiveCell.FormulaR1C1 = "Amount"
ActiveCell.Interior.ColorIndex = 48
Dim NewStart As Range
Set NewStart = Range("A2")
Dim j As Long

For r = 2 To StartRange.Rows.Count
For i = 2 To StartRange.Columns.Count
If StartRange.Cells(r, i).Value > 0 Then
NewStart.Offset(j).Value = StartRange.Cells(r, 1).Value
NewStart.Offset(j, 1).Value = StartRange.Cells(1, i).Value
NewStart.Offset(j, 2).Value = StartRange.Cells(r, i).Value
j = j + 1
End If