The reason it does not work is, the code line 'Range("A" & intCounter).Select' should be after
'Do While (intCounter < 2000)'.
<PRE><FONT color=red>Sub </FONT>SLA()
<FONT color=red>Dim </FONT>intCounter <FONT color=red>As</FONT><FONT color=red> Integer</FONT>
<FONT color=red>Dim </FONT>intRowCount <FONT color=red>As</FONT><FONT color=red> Integer</FONT>
intCounter = 1
intRowCount = 2
<FONT color=red>Do </FONT>While (intCounter < 2000)
Sheets("Helpdesk").Select
<FONT color=red>If </FONT>Range("Q" & intCounter).Value = "NO" Then
Range("A" & intCounter).Select
Selection.Copy
Sheets("SLA").Select
Application.Goto Reference:=Range("A" & intRowCount)
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
intRowCount = intRowCount + 1
<FONT color=red>End If</FONT>
intCounter = intCounter + 1
<FONT color=red>Loop</FONT>
<FONT color=red>End Sub</FONT>
</PRE>
Here is fast way by using AutoFilter method. Q1 is title yes?
<PRE><FONT color=red>Sub </FONT>SLA_Colo_Modified()
<FONT color=red>With </FONT>Sheets("Helpdesk")
.[Q1:Q2000].AutoFilter 1, "NO"
Intersect(.Range(.[A2], .[A65536].End(xlUp)), .[A2:A2000]).Copy
Sheets("SLA").[A2].PasteSpecial xlValues
.[Q1:Q2000].AutoFilter
Application.CutCopyMode =<FONT color=red> False</FONT>
<FONT color=red>End With</FONT>
<FONT color=red>End Sub</FONT>
</PRE>