Need values for all columns

[laxmananm]

I have one sheet which has some values and i have some values which has some datas in another sheet.Now i have written some macros to paste the
values from workbook 1 and 2 to workbook 3.It is working fine for me.But it produce the results for First in the 3rd sheet.Now i want to get all the colums results for my code
Kindlu help me.

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+l


 Dim iColN As Integer
    Dim iColI As Integer
    Sheets("SIT1").Select
    Columns("B:B").Select
    Selection.Copy
    Sheets("Result").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("PROD1").Select
    Columns("B:B").Select
    Selection.Copy
    Sheets("Result").Select
    Columns("B:B").Select
     
    ActiveSheet.Paste
    Range("C2").Select
    Application.CutCopyMode = False
    lRow = Range("A30000").End(xlUp).Row
    
 
 
    ActiveCell.FormulaR1C1 = "=EXACT(RC[-1],RC[-2])"
    Range("D2").Select
     ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(RC[-2],C[-3],1,FALSE)),""Not Found"",""Found"")"
    Range("D3").Select
End Sub