Hi everyone,
I would appreciate if anyone can help me with theis code:
Sub pairs()
Dim sh As Worksheet, tb As Long, c As Range, sVal As Range
Set sh = Sheets(1) 'Edit sheet name
tb = sh.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In sh.Range("B2:B50") 'Assumes header row...