Copy and paste row if a cell has a value

Try This

Sub CopyAndPaste()
Application.ScreenUpdating = False

Range("Y6:Y27") = Range("Y6:Y27").Value

NR = 2
Dim cell As Range
With Sheets("Processor")

     For Each cell In .Range("Y6:Y" & .Range("Y" & Rows.Count).End(xlUp).Row)
     If cell.Value <> "" Then
         cell.EntireRow.Copy
         Sheets("Results").Range("A" & NR).PasteSpecial Paste:=xlPasteValues
         NR = NR + 1
         End If
    Next cell
 End With
 Application.CutCopyMode = False
 Application.ScreenUpdating = True

End Sub