For row = 2 To length
        If Sheets(wsname).Cells(row, column) = Sheets("Overview").Cells(ovrow, ovcol) Then
            counter = counter + 1
        End If
    Next row
    Sheets("Overview").Cells(ovrow, ovcol).Offset(0, 1).value = counter
    counter = 0
    If Sheets("Overview").Cells(ovrow, ovcol).Offset(1, 0).value = "" Then
    ovrow = 2
    ovcol = ovcol + 2
    column = column + 1
    Else
    ovrow = ovrow + 1
    End If
    Cells(ovrow, ovcol).Select
Loop