So now the macro reads as:

Sub splitdata()

Dim i As Variant
Dim j As Variant
Dim k As Variant
Dim a As Variant
Dim c As Range 'current
Dim n As Range 'next

Set c = Worksheets("RAWdata").Range("A2")

i = 2
j = 2
k = 2

Do While Not IsEmpty(c)
Set n = c.Offset(1, 0)
Sheets("RAWdata").Select
a = Len(Cells(i, "A"))

If a < 9 Then
Sheets("RAWdata").Select
Range(Cells(i, "A"), Cells(i,
"O")).Copy

Sheets("IRdata").Select
Range(Cells(j, "A"),
Cells(j, "O")).Select
ActiveSheet.Paste
j = j + 1

Else
Sheets("RAWdata").Select
Range(Cells(i, "A"), Cells(i,
"O")).Copy
Sheets("FLSdata").Select
Range(Cells(k, "A"),
Cells(k, "O")).Select
ActiveSheet.Paste
k = k + 1

End If
i = i + 1
Set c = n
Loop
End Sub