Option Explicit

Private Sub CheckRows()

    Dim sCurrentText As String
    Dim sPreviousText As String
    Dim Counter As Long
    
    On Error GoTo ErrHandler
    
    Range("A1").Select
    Counter = 2
    Do Until ActiveCell.Text = ""
        sPreviousText = FirstFourWords(Trim(Range("A" & Counter - 1)))
        sCurrentText = FirstFourWords(Trim(Range("A" & Counter)))
        If Not sCurrentText = "NOT LONG ENOUGH" Then
            If sCurrentText = sPreviousText Then
                CutRowToNextSheet (Counter)
                Counter = Counter - 1
            End If
        End If
        Counter = Counter + 1
        ActiveCell.Offset(1, 0).Activate
    Loop
        
Finish:
    On Error GoTo 0
    Exit Sub
ErrHandler:
    MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
    Resume Finish
    Resume
End Sub

Private Function FirstFourWords(sCellText As String) As String
    
    Dim iCounter As Integer
    Dim iSpaces As Integer
    On Error GoTo ErrHandler
    
    iSpaces = 0
    
    If sCellText = "" Then
        FirstFourWords = "NO TEXT"
        GoTo Finish
    End If
    
    For iCounter = 1 To Len(sCellText)
        If Mid(sCellText, iCounter, 1) = " " Then
            iSpaces = iSpaces + 1
            If iSpaces = 4 Then
                FirstFourWords = Trim(Left(sCellText, iCounter - 1))
                Exit For
            End If
        End If
        FirstFourWords = "NOT LONG ENOUGH"
    Next iCounter
    
Finish:
    On Error GoTo 0
    Exit Function
ErrHandler:
    MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
    Resume Finish
    Resume
End Function

Private Sub CutRowToNextSheet(ByVal RowNumber As Integer)
    On Error GoTo ErrH
        
    Rows(RowNumber).Select
    Selection.Cut
    Sheets("Sheet2").Select
    Sheets("Sheet2").Range("A1").Select
    Do Until ActiveCell.Text = ""
        ActiveCell.Offset(1, 0).Activate
    Loop
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Selection.Delete Shift:=xlUp
    
Finish:
    On Error GoTo 0
    Exit Sub
ErrHandler:
    MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
    Resume Finish
    Resume
End Sub