Kodun en başına Dim satırlarının olduğu yere yeni bir tanımlayıcı ekleyip

dim satış as integer

yazın. Sonra da

For x = 0 To UBound(xDizi) Step xOran

            Cells(xSatir - 1, CLng(xDizi(x))).Value = 1

            xMesai = xMesai - 1

            xSay = xSay - 1

        Next x 

yukardaki  bloğunu asagidakiyle değiştirip deneyin

For x = 0 To UBound(xDizi) Step xOran

            Cells(xSatir - 1, CLng(xDizi(x))).Value = xArtis

            xMesai = xMesai - xArtis

            xSay = xSay - 1

        Next x