Transpose data vertically VBA

[Afarag]

Hello there,

please i need help in transposing data from horizontal order to vertical,

as shown i need to convert this screen

to

Note: the range of the main data is variable.

Thanks a lot,

 

[Deepak]

Your image are not visible,
This is based on the uploaded wb.

Sub transpose_data()
Dim rng As Range, i As Integer, r As Integer, ws As Worksheet
Application.ScreenUpdating = False
r = 2
Set ws = Sheets("Transpose")
With Sheets("Data")
    Set rng = .Range("A2:A21")
    For i = 1 To 30
        rng.Copy ws.Cells(r, 1)
        ws.Range("B" & r & ":B" & r + 19).Value = .Cells(1, i + 1).Value
        rng.Offset(, i).Resize(, 1).Copy ws.Cells(r, 3)
    r = r + 20
    Next
End With
ws.[A1:c1] = Array("Login ID", "Date", "Activity")
Application.ScreenUpdating = True
End Sub

 

[Afarag]

Hello Deepak,

that is what i was really looking for

thanks a lot for your support..