Sub macrom()
Application.ScreenUpdating = False
For x = 1 To 75
Sheets("Draft").Range("C3").AutoFilter Field:=3, Criteria1:=x
With Range("S3")
.Copy
Sheets("test").Range("A" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Next
Application.ScreenUpdating = True
End Sub