Convert list of data to table

diegohoutart This should do what you want. It will build a new list in the format you want, starting in cell D1, so make sure D:F are empty.

Sub SplitAuthors()
    Dim i As Long
    Dim lr1 As Long
    Dim lr2 As Long
    
    lr1 = Cells(Rows.Count, "B").End(xlUp).Row
    
    Range("D1").Value = "Author"
    Range("E1").Value = "Title"
    Range("F1").Value = "Date"
    
    For i = 1 To lr1 Step 3
        lr2 = Cells(Rows.Count, "D").End(xlUp).Offset(1).Row
        Cells(lr2, "D").Value = Cells(i, "B").Value
        Cells(lr2, "E").Value = Cells(i + 1, "B").Value
        Cells(lr2, "F").Value = Cells(i + 2, "B").Value
    Next i
        
End Sub