Sub test()
Application.ScreenUpdating = False
For Each cell In Range("Name")
Sheets("Cover").Range("C2") = cell.Value
Sheets("Cover").Calculate
x = Sheets("Results").Range("B65536").End(xlUp).Row + 1
Sheets("Cover").Range(Sheets("Cover").Cells(13, 3), Sheets("Cover").Cells(13, Sheets("Cover").Cells(13, 256).End(xlToLeft).Column)).Copy
Sheets("Results").Select
Range("C" & x).PasteSpecial Paste:=xlValues
Next
Application.ScreenUpdating = True
End Sub