I'm not very experienced in VBA, and I have a code I created that does exactly what I need, however it's kinda slow. I've tried making changes but every time I try, it stops working, so I have to revert every time.

I know it may be lengthy but I appreciate anyone's help!!

Basically what I need is this:

I have some sort of nth occurrence that gives me the surveys each person gets.
We have some surveys that we get, they are labeled with the employee's name, date, and scores. However, sometimes the surveys have two names(divided with a space, slash, space[" / "]
But those surveys are not detected by the nth occurrence, so I figured a way to split them would be with the LEFT and RIGHT function in a separate sheet, then copy them "as values" in a separate sheet and then copy both(left and right)sheets to the main data sheet where the surveys are. And then the Nth Occurrence gets the surveys from there.

I currently have the following sheets
Employee(where the nth_occurence resides)
Data(where they paste surveys from source)
Data2(Where the nth_occurence gets data from)(Just need data pasted as values in this sheet)
LEFT(Where the LEFT function resides. It's basically =LEFT([whatever...]) using cell references from the Data sheet. Makes the file very heavy as there are over 9000 cells.
RIGHT(Same as LEFT but with RIGHT)
LEFT2(Where date from LEFT is pasted as values so it may be pasted into Data, and eventually into Data2
RGHT2(Same as above with with RIGHT)

This is what I have:

    Sub Import_Surveys

'Copy LEFT as Values
    Sheets("LEFT2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("LEFT").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select

'Copy RIGHT as Values
    Sheets("RIGHT2").Select
    Cells.Select
    Selection.Copy
    Sheets("RIGHT").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select

'Paste LEFT to Data Sheet

    Sheets("LEFT").Select
    Range("A1:L1000").Select
    If ActiveWorkbook.Sheets("Data").Range("A4").Value = Empty Then
        Selection.Copy Destination:=ActiveWorkbook.Sheets("Data").Range("A4")
    Else
        Selection.Copy Destination:=ActiveWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
    
'Sort(to eliminate spaces since code copies to next available blank)
    Worksheets("Data").Select
    Range("A3").Select
    Range("A3:L9999").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select

'Paste RIGHT to Data Sheet

    Sheets("RIGHT").Select
    Range("A1:L1000").Select
    If ActiveWorkbook.Sheets("Data").Range("A4").Value = Empty Then
        Selection.Copy Destination:=ActiveWorkbook.Sheets("Data").Range("A4")
    Else
        Selection.Copy Destination:=ActiveWorkbook.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If

'Sort(to eliminate spaces since code copies to next available blank)
    Worksheets("Data").Select
    Range("A3").Select
    Range("A3:L9999").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select

Sub Data_to_Data2()

    Range("A4:L4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Data2").Visible = True
    Sheets("Data2").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Worksheets("Data2").Range("B4").Select
    Sheets("Data").Select
    Application.CutCopyMode = False
    Worksheets("Data").Range("A4").Select
    Sheets("Data2").Visible = False
End Sub