Private Function test() Dim S1 As String, S2 As String Dim lRow As Long, i As Long Dim ws As Worksheet Set ws = ActiveWorkbook.Sheets("pppdp") With ws lRow = .Range("A" & .Rows.Count).End(xlUp).Row For i...