Copy Paste Special Using Column Headers

Maybe:

Sub phelbinz()
    Dim ws As Worksheet, ws2 As Worksheet, x As Range, i As Long, y As Long
    Set ws = Workbooks("ManagerWorkbook.xlsm").Sheets("CurrentPayroll")
    Set ws2 = Workbooks("Import Education Timesheets.xlsm").Sheets("Import")
    
    With ws
        For i = 1 To .UsedRange.Columns.Count
        Set x = ws2.Rows(5).Find(ws.Cells(1, i).Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not x Is Nothing Then
                y = .Cells(Rows.Count, i).End(3).row
                .Range(.Cells(2, i), .Cells(y, i)).Copy
                ws2.Cells(6, x.Column).PasteSpecial xlPasteValues
            End If
        Set x = Nothing
        Next i
    End With
End Sub