Data from Columns to Rows (Transpose Not Working)

[Hohums]

Hello all,

My data is as follows:

CUSTOMER	ADDRESS	TASK
CUST1	ADDR1	TASK1
CUST1	ADDR1	TASK2
CUST1	ADDR1	TASK3
CUST2	ADDR2	TASK1
CUST2	ADDR2	TASK2

<tbody>
</tbody>

And so on.

I want to move the Tasks all onto a single row. Have tried manual copy/paste with Transpose but there are too many records for this to be viable

Desired output is:

CUST1	ADDR1	TASK1	TASK2	TASK3
CUST2	ADDR2	TASK1	TASK2	TASK3

<tbody>
</tbody>

Any help would be greatly appreciated!

Regards,
Hohums

 

[Special-K99]

Try this

Sub k1()
Dim LastRow As Long, i, j, k, LastCol As Integer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
k = 0
l = 1
For i = 1 To LastRow
        k = k + 1
        Debug.Print i; k; l
        If k <> 1 Then
        Sheets("Sheet2").Range("A1").Offset(l - 1, k) = Sheets("Sheet1").Range("A1").Offset(i - 1, 2)
        Else
        Sheets("Sheet2").Range("A1").Offset(l - 1, 0) = Sheets("Sheet1").Range("A1").Offset(i - 1, 0)
        Sheets("Sheet2").Range("A1").Offset(l - 1, k) = Sheets("Sheet1").Range("A1").Offset(i - 1, 2)
        End If
        If k = 3 Then k = 0: l = l + 1
Next i
End Sub