If Not IsNothing(.Columns("Сумма грн без НДС")) Then
                .Columns("Сумма грн без НДС").DefaultCellStyle.Format = String.Format("#,##0.00")
                .Columns("Сумма грн без НДС").Width = 78
                .Columns("Сумма грн без НДС").ReadOnly = True
            End If

#Region "ФУНКЦИЯ КОДИРОВКИ КИРИЛЛИЦЫ ПРИ ВСТАВКЕ"
    Public Sub CopySelectedRowsToClipboard(ByVal dgv As DataGridView)
        If dgv.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
            Try
                dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText

                Clipboard.Clear()
                If dgv.GetClipboardContent() IsNot Nothing Then
                    Clipboard.SetDataObject(dgv.GetClipboardContent().GetText(TextDataFormat.Html))
                    Clipboard.GetData(DataFormats.Text)
                    Dim dt As IDataObject = Clipboard.GetDataObject()
                    If dt.GetDataPresent(GetType(String)) Then
                        Dim strTb As String = DirectCast(dt.GetData(GetType(String)), String)
                        '  strTb = Regex.Replace(strTb, "(\s){2,}", " ") 'добавлено
                        Dim strEnc As Encoding = Encoding.GetEncoding(1251)
                        Dim btEnc As Byte() = strEnc.GetBytes(strTb)
                        Clipboard.SetDataObject(strEnc.GetString(btEnc))
                    End If
                End If
                dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.Disable
            Catch ex As Exception

            End Try

        End If
    End Sub
#End Region