Here is my current code
Sub removewithdots()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Dim LR As Long, i As Long, j As Integer, c As Range<o:p></o:p>
LR = Range("A" & Rows.Count).End(xlUp).Row<o:p></o:p>
For Each c In Range("A1:D" & LR)<o:p></o:p>...