remove . from the last of email

[KAMRAN AJ]

Hi
Team hope you are doing great
i need a dynamimc range excel Vba code for Column k that remove just . from the last of email

[JKwan]

give this a try

Sub RemoveDot()
Dim lRow As Long
Dim LastRow As Long

Dim WS As Worksheet

Set WS = ActiveSheet
LastRow = FindLastRow(WS, "K")
For lRow = 2 To LastRow
With WS
If Right(.Cells(lRow, "K"), 1) = "." Then
.Cells(lRow, "K") = Left(.Cells(lRow, "K"), Len(.Cells(lRow, "K")) - 1)
End If
End With
Next lRow
End Sub
Function FindLastRow(ByVal WS As Worksheet, ColumnLetter As String) As Long
FindLastRow = WS.Range(ColumnLetter & Rows.Count).End(xlUp).Row
End Function

[KAMRAN AJ]

Excellent ,where is a button of mark as solution