Sorting Data - copy only needed data (macro)

Sub ertert()
Dim x, i&, j&, k&
With Sheets("Sheet1")
    x = .Range("A1:K" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With

For i = 1 To UBound(x)
    If x(i, 1) Like "Employee:*" Then
        j = j + 1: x(j, 1) = Trim(Split(x(i, 1), ":")(1))
    End If
    If x(i, 1) Like "Total of*" Then
        For k = 3 To UBound(x, 2): x(j, k - 1) = x(i, k): Next k
    End If
Next i

Sheets("Sheet2").Range("B2:K2").Resize(j).Value = x
End Sub