copy (split) part of cell in one column into a new column

[wittonlin]

I have the following date/time in Column K
Mon Nov 14 20:15:14 EST 2016

I'd like to copy the first 3 parts 'Mon Nov 14' and add it to column R for all rows in a workbook with a variable file name.

Column K remains unchanged.

Thanks so much for anyone able to help!

 

[wittonlin]

I was hoping just removing that line would work. lol

.Rows(1).Value = "" 'This will clear out row

I'll also never need this line so I removed it too.

.Rows(1).Font.Bold = False

 

[wittonlin]

Oops! I copied too much code in that you may have missed.

Sub AddHeaders()
Dim headers() As Variant
Dim ws As Worksheet
Dim wb As Workbook

Application.ScreenUpdating = False 'turn this off for the macro to run a little faster

Set wb = ActiveWorkbook

headers() = Array("Firstname", "Lastname", "Mobile", "Timezone", "Address", "City", "State", "Zip", "Email", "IP", "Time and Date", _
    "Gender")
For Each ws In wb.Sheets
    With ws
    .Rows(1).Value = "" 'This will clear out row 1
    For i = LBound(headers()) To UBound(headers())
        .Cells(1, 1 + i).Value = headers(i)
    Next i
    .Rows(1).Font.Bold = False
    End With
Next ws

Application.ScreenUpdating = True 'turn it back on

End Sub

And really now just this...

Sub AddHeaders()
Dim headers() As Variant
Dim ws As Worksheet
Dim wb As Workbook

Set wb = ActiveWorkbook

headers() = Array("Firstname", "Lastname", "Mobile", "Timezone", "Address", "City", "State", "Zip", "Email", "IP", "Time and Date", _
    "Gender")
For Each ws In wb.Sheets
    With ws
    For i = LBound(headers()) To UBound(headers())
        .Cells(1, 1 + i).Value = headers(i)
    Next i

    End With
Next ws

End Sub