Dim n As Integer = dgvConfirmSale.Rows.Add()
        Dim i, j As Integer

        For i = 5 To Form1.receiptCollection.Count
            'MsgBox(i)
            dgvConfirmSale.Rows.Item(n).Cells(0).Value = (i - (i - 1))
            'MsgBox(dgvConfirmSale.Item(0, 0).Value)
            For j = 5 To Form1.receiptCollection.Count
                dgvConfirmSale.Rows.Item(n).Cells(j - 4).Value = Form1.receiptCollection.Item(j)
            Next j
        Next i