J
Sub Rangement()
For Each Cel In Range("M2:U2")
If Cel = 0 Then
Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cel.Offset(-1, 0)
ElseIf Cel < 4 Then
Cells(Range("D65536").End(xlUp).Row + 1, 4) = Cel.Offset(-1, 0)
ElseIf Cel < 9 Then
Cells(Range("E65536").End(xlUp).Row + 1, 5) = Cel.Offset(-1, 0)
ElseIf Cel > 8 Then
Cells(Range("F65536").End(xlUp).Row + 1, 6) = Cel.Offset(-1, 0)
End If
Next Cel
End Sub