Occupational sick pay problem

This is the next button code which copies the data to the next page, I think if it copied the whole of the output range to the output sheet in one go there would be no problem, but as I don't want it to paste blank lines as this will affect the csv import it uses a next row. I have a feeling it is this, that is making the problem.

Sub Button27_Click()
Application.ScreenUpdating = False
Dim NR As Long
Dim InS As Worksheet
Dim OuS As Worksheet
Dim newRow As Integer
Dim colIndex As Integer
Dim rowIndex As Integer
Dim dataRange As Range


Set InS = Sheets("INPUT")
Set OuS = Sheets("OUTPUT")
Set dataRange = InS.Range("OUTDATA")
NR = OuS.Range("A" & Rows.Count).End(xlUp).Row + 1

For rowIndex = 1 To dataRange.Rows.Count
        If Application.CountIf(dataRange.Rows(rowIndex), "") < dataRange.Columns.Count Then
dataRange.Rows(rowIndex).Copy
    OuS.Range("A" & NR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
NR = NR + 1
End If
Next rowIndex
Application.ScreenUpdating = True
Range("ICLEAR") = ""
End Sub