Filter, copy specific columns, and paste to another sheet.

Good morning,
Yeah it is 1:33 am where I am.
I'd like to filter a column and paste only 2 columns to another sheet in the first available row.
I found a code that was posted by Tom Ogilvy and made a few adjustments:

Sub Test1()
Set rng = Sheets("Sheet1").AutoFilter.Range
If rng.Columns(1).SpecialCells(xlVisible).Count > 1 Then
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Sheets("Sheet2").Range("A2")
Else
MsgBox "No visible data"
End If
End Sub

I can't seem to adjust it to copy 2 columns.
I've attached a file.
Can anyone help?
Regards,
Xrull