Copy Some Cells Within Selection

How can I sort a 7 column selection and then paste columns 1-4, and 7 to the new location? Columns 5 and 6 should be ignored for the most part. Also, how can I obtain the first values of the column 5 and 6 selection to? I want to use them to name a file. This is how I am selecting the range.

Dim rng As Range
'Copy Selection
Set rng = Selection
rng.Copy Destination:=Range("A8")

This is how I name my files. I am getting the values from the form.

Dim strFileName As String
strFileName = .DateBox.Value & " " & .FromStoreBox.Value & " " & _
.ToStoreBox.Value & " " & .RequestedByBox.Value & " " & ".xls"