G'day everyone

For the life of me, I have no idea why this doesn't work properly.

All I get returning is the first record

I know this workes when I specify the Criteria1="081001", but when I use the
same value via SIDLook Name Range

Sub Search_Copy_Student()

Dim SourceSheet As Worksheet
Dim DestinationSheet As Worksheet
Dim rng As Range

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Sheets("Exam Results").Select

Set SourceSheet = Sheets("Exam Results")
Set rng = SourceSheet.Range("A2:H" & Rows.Count)
Set DestinationSheet = Sheets("Student Select")

SourceSheet.AutoFilterMode = False
rng.AutoFilter Field:=1, Criteria1:="SIDLook"

SourceSheet.AutoFilter.Range.Copy
DestinationSheet.Select
Range("C2").Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub

TIA
Mark.