Copy and paste non blank rows from a range

You haven't actually copied anything to paste, nor have you incremented the NR variable after the paste.

Private Sub CommandButton2_Click()
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 LIST")
Set OuS = Sheets("OUTPUT LIST")
Set dataRange = InS.Range("I6:P18")
NR = OuS.Range("A" & Rows.Count).End(xlUp).Row + 1

For rowIndex = 6 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
Range("Emp,Manual,Role,OHrs,SHrs,Casual,CRate,AddType,AddHrs,FDate,TDate").Value = ""
End Sub