Try this macro (create Sheet2 before running!):

Sub test()
Dim sourcerng As Range, sourcecell As Range, oneRow As Range, destrng As
Range
Worksheets("Sheet1").Select
NoofRows = Range("A" & Rows.Count).End(xlUp).Row
Set sourcerng = Range("A2:A" & NoofRows)
destrow = 2
For Each sourcecell In sourcerng
Set oneRow = Range(Range("B" & sourcecell.Row), Range("D" &
sourcecell.Row))
oneRow.Copy
Worksheets("Sheet2").Select
Set destrng = Worksheets("Sheet2").Range(Range("A" & destrow),
Range("A" & destrow + 2))
destrng.Value = sourcecell.Value
Range("B" & destrow).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Worksheets("Sheet1").Select
destrow = destrow + 3
Next sourcecell
Application.CutCopyMode = False
End Sub


Regards,
Stefi

€žHenry€� ezt Ã*rta:

shift 1 shift 2 shift 3
1/1/2008 32 45 28
1/2/2008 49 36 73
1/3/2008 21 16 81

Have data as above and would like to make it as below:
1/1/2008 32
1/1/2008 45
1/1/2008 28
1/2/2008 49
1/2/2008 36
1/2/2008 73

Have 270 plus lines of data and have been trying to use dget but
can't seem to get it to work