How to Remove text after last comma, only if cell has 3 commas

How to remove text after last comma, only if cell has 3 commas

Requirement:

The user has the following macro which combs through column E and successfully removes any text after the last comma in a cell, but what I would like to know is if this can be modified so that it will only alter cells in E that contain three commas? In other words, if the cell only has one or two commas, the macro would ignore the cell and move on to the next. Alternatively, can it be modified so that it only applies to filtered, visible rows?

Code:

Dim LastRow As Long
Dim Pos As Long
Dim i As Long
    With ActiveSheet
    
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
        
        For i = 1 To LastRow
        
            Pos = InStrRev(.Cells(i, "E").Value, ",")
            If Pos > 0 Then
            
                .Cells(i, "E").Value = Left(.Cells(i, "E").Value, Pos - 1)
            End If
        Next i
    End With

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1198974-remove-text-after-last-comma-only-if-cell-has-3-commas

Solution:

Change references as or if required.

Code:

Sub DeleteTail_By_cytop()
    Dim LastRow As Long, i As Long
    Dim v As Variant
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For i = 1 To LastRow
            v = Split(.Cells(i, "E").Value, ",")
            If UBound(v) > 2 Then
                .Cells(i, "F").Value = v(0) & "," & v(1) & "," & v(2)
            End If
        Next i
    End With
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by jolivanes.