Sub tt()
    Application.ScreenUpdating = 0
    r0_ = 2
    n_ = Cells(Rows.Count, 3).End(3).Row - r0_ + 1
    c_ = 6
    Columns(c_).Clear
    Range("C2").Resize(n_).Copy Cells(2, c_)
    Cells(2, c_).Resize(n_).SpecialCells(xlCellTypeBlanks).Delete
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("F2").Resize(Cells(Rows.Count, c_).End(3).Row - r0_ + 1), , xlYes).Name = "Tab" & Timer
    Application.ScreenUpdating = 1
End Sub

Sub tt()
    Application.ScreenUpdating = 0
    c0_ = 2
    r0_ = 2
    c_ = 10
    On Error Resume Next
    If Cells(r0_, c_) <> "" Then
        Cells(r0_, c_).CurrentRegion.Clear
    End If
    For i = c0_ To Columns.Count
        If Cells(r0_, i) = "" Then
            Exit For
        Else
            nr_ = Cells(Rows.Count, i).End(3).Row - r0_ + 1
            Cells(r0_, i).Resize(nr_).Copy Cells(r0_, c_ + k_)
            Cells(r0_, c_ + k_).Resize(nr_).SpecialCells(xlCellTypeBlanks).Delete
            k_ = k_ + 1
        End If
    Next i
    ActiveSheet.ListObjects.Add(xlSrcRange, Cells(r0_, c_).CurrentRegion, , xlYes).Name = "Tab" & Timer
    On Error GoTo 0
    Application.ScreenUpdating = 1
End Sub