Matching two sets of Data

Good Morning All,

I do apologise if this has already been answered however I couldn't find it anywhere.

On a daily basis I need to match up two sets of data for employee performance.

Basically I have a list of all employee numbers and export the results from another piece of software but this only displays the employee's who have results and not all.

Is there a quick way of matching this data? a function that says if a1 does not = b1 then move b1+c1 down a cell?

Thanks for your help

Try this code.

Public Sub CompareData()

    Dim iRow As Integer

    ActiveSheet.Range("A1").Select
    
    Do Until ActiveCell.Value = ""
        iRow = ActiveCell.Row
        If Not ActiveSheet.Range("A" & iRow).Value = ActiveSheet.Range("B" & iRow).Value Then
            Range("B" & iRow & ":C" & iRow).Select
            Selection.Insert Shift:=xlDown
            ActiveSheet.Range("A" & iRow + 1).Select
        Else
            ActiveSheet.Range("A" & iRow + 1).Select
        End If
    Loop

End Sub

ASSUMES: your data starts in cell A1, if not change "ActiveSheet.Range("A1").Select"

ASSUMES: no breaks in data in Column A, and the code will stop once the first empty cell in Column A is found.

HTH

Art

Thanks Art, I'll give it a go