Split data with the help of VBA

Excel 

Sub SplitData()
    Dim r As Long
    Dim s As Long
    Dim t As Long
    Dim m As Long
    Application.ScreenUpdating = False
    m = Range("C:D").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("I5:M" & Rows.Count).Clear
    s = 4
    t = 4
    For r = 5 To m
        If Range("C" & r).Value <> "" And Range("D" & r).Value <> "" Then
            If Application.CountIfs(Range("C5:C" & m), Range("C" & r).Value, Range("D5:D" & m), "<>") = 1 Then
                s = s + 1
                Range("C" & r).Resize(1, 2).Copy Destination:=Range("I" & s)
            Else
                t = t + 1
                Range("C" & r).Resize(1, 2).Copy Destination:=Range("L" & t)
            End If
        End If
    Next r
    Application.ScreenUpdating = True
End Sub