Sub Main2()
Dim ws1 As Worksheet, r1 As Range, f1 As Range
Dim ws2 As Worksheet, r2 As Range, f2 As Range
Dim p As String, r As Range
p = ThisWorkbook.Path & "\" 'Path for workbooks to open.
'ws1 and ws2 workbooks are expected to exist and worksheet index of 1 for each...