Data transpose (from vertical input to Horizontal output)

Dear all, after long day , once again , need macro to data transpose from horizontal input to vertical output.
before data

Keisuke Hi
1 ruum · 1 guiter · TKD 90
3-38-5-301 Hazawa, Nerima-ward, TOKYO, 176-0003, Japan
+819038031597 · [email protected] · Japanese
Thursday, May 2, 2013 at 18:35:21 · #664055610

after data

Name	Address	Phone	Email	 Date	sl No
Keisuke Hi	3-38-5-301 Hazawa, Nerima-ward, TOKYO, 176-0003, Japan	819038031597	[email protected]	Thursday, May 2, 2013	664055610

Please check the attachment for better understanding.

Try the macro below.

Sub CONVERTROWSTOCOL_Oeldere_revisted()

Dim rsht1 As Long, rsht2 As Long, i As Long, col As Long, wsTest As Worksheet

'check if sheet "ouput" already exist

Const strSheetName As String = "Output"
 
Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0
 
If wsTest Is Nothing Then
    Worksheets.Add.Name = strSheetName
End If

   
   With Sheets("Output")
    .UsedRange.ClearContents
    .Range("A1:B1").Value = Array("Info", "Transposed")

    End With
    
    
    rsht1 = Sheets("Input").Range("A" & Rows.Count).End(xlUp).Row
    rsht2 = Sheets("Output").Range("A" & Rows.Count).End(xlUp).Row
    col = 10
    
    For i = 2 To rsht1
            Do While Sheets("input").Cells(1, col).Value <> ""
            rsht2 = rsht2 + 1
            Sheets("Output").Range("A" & rsht2).Value = Sheets("input").Cells(1, col).Value
            Sheets("Output").Range("B" & rsht2).Value = Sheets("input").Cells(i, col).Value
            
     
            col = col + 1
        Loop
        col = 10
    Next
  With Sheets("Output")
  
   .Range("B2:B" & .Rows.Count).SpecialCells(4).EntireRow.Delete
   
   Columns("A:Z").EntireColumn.AutoFit
    
    End With
End Sub

Hi oeldere, I am extremely sorry for my great mistake in the thread problem title, I was not aware at all, how ever your macro was correct as per my previous asking which was “Data transpose (from horizontal input to vertical output)”. Instead of “Data transpose (from horizontal input to vertical output)” , the problem title will be Data transpose (from vertical input to Horizontal output)”. Sorry once again for wasting your valuable time.