Re arrange columns from selected rows

All,
I am attaching an excel file. It also contains the macro needed for "Click Here" button

Sub Possible_Answer()
    Dim i As Long
    Dim copyRows As Range

    With Sheets("Sample Problem")

        For i = 7 To 13
            If .Range("C" & i).Value = "Jane Fake" Then
                If copyRows Is Nothing Then
                    Set copyRows = .Rows(i)
                Else
                    Set copyRows = Union(copyRows, .Rows(i))
                End If
            End If
        Next

        If Not copyRows Is Nothing Then
            copyRows.Copy Sheets("Sample Problem").Rows(18)
        End If
    End With
End Sub

But I need to re-arrange few columns to fit the target table.

Any help would be appreciated

Thanks in advance
Steve