Удаление лишних символов

Dim proverka As String
    For Each ppp In Range("D2: D 28")
    proverka = ppp.Value
    If InStr(1, proverka, ",,") <> 0 Then proverka = Replace(proverka, ",,", ",")
        End
    If Left(proverka, 1) = "," Then Left(proverka, 1) = "" Else
        End
    If Right(proverka, 1) = "," Then Right(proverka, 1) = "" Else
        End
    
    Next

ActiveSheet.Cells(lLastRow + 1, n).Value = "123"

Sub test()
Dim idx, nom_poryadk, adress_id As Variant, nom_Row As Variant
idx = 1
nom_poryadk = 1
With Worksheets("List1")
    Set nom_Row = .Range("A:A").Find(What:=nom_poryadk, LookAt:=xlWhole)
    If nom_Row Is Nothing Then
            MsgBox ("îøèáêà: íå íàéäåíà ñòðîêà ñ ïîðÿäêîâûì íîìåðîì")
        Else
            nom_Row = nom_Row.Row
        End If
    Select Case idx
        Case Is = ID_Allel1
            adress_id = Cells(Cells(nom_Row, 7).Value, Cells(nom_Row, 8).Value)
        Case Is = ID_Allel2
            adress_id = Cells(Range("I" & nom_Row).Value, Range("J" & nom_Row).Value)
        Case Is = ID_Allel3
            adress_id = Cells(Range("K" & nom_Row).Value, Range("L" & nom_Row).Value)
        Case Is = ID_Allel4
            adress_id = Cells(Range("M" & nom_Row).Value, Range("N" & nom_Row).Value)
        Case Is = ID_Lokus
            adress_id = Cells(Range("B" & nom_Row).Value, Range("C" & nom_Row).Value)
        Case Else
            MsgBox ("îøèáêà: íå ñóùåñòâóþùèé ID îáúåêòà")
    End Select
    End With
MsgBox (adress_id)
Worksheets("List2").Cells(adress_id).Value = "ïðèâåò"
End Sub

 Cells(Cells(nom_Row, 7).Value, Cells(nom_Row, 8).Value)

Public Const SW_HIDE = 0, SW_SHOWNORMAL = 1, SW_NORMAL = 1, SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3, SW_MAXIMIZE = 3, SW_SHOWNOACTIVATE = 4, SW_SHOW = 5
Public Const SW_MINIMIZE = 6, SW_SHOWMINNOACTIVE = 7, SW_SHOWNA = 8, SW_RESTORE = 9, SW_SHOWDEFAULT = 10, SW_MAX = 10

adress_id As Range

   Set adress_id = Cells(Cells(nom_Row, 2).Value, Cells(nom_Row, 3).Value)

Worksheets(Лист2).Cells(adress_id).Value = "привет"