comparing data from 2 ws coping to third

[Frankw]

Hello all,
This is my first attempt at writing a module in excel. I am trying to compare two worksheets (sheet1 to sheet2) and if I get a match I would like to write it to sheet3. I havent been able to get this to work, or really try it yet. I am having problems writing the values and dont even know if my code makes sense. Any help would be appreciated. below is what I have written so far.

Sub fcompare()
' Compare column A from ws1 and see if its in ws2 column A
' if so copy column A from ws1 and Column B C to ws3
' note that row numbers between ws1 and ws2 may not be the same
    Dim i As Integer ' worksheet 1
    Dim k As Integer ' worksheet 2
    Dim intRowCountWS1 As Integer
    Dim intRowCountWS2 As Integer
    Worksheets("Sheet1").Activate
    intRowCountWS1 = Range("A1").CurrentRegion.Rows.Count - 1
    Worksheets("Sheet2").Activate
    intRowCountWS2 = Range("A1").CurrentRegion.Rows.Count - 1
    
    Worksheets("Sheet1").Activate
    For i = 1 To intRowCountWS1
        WS1 = ActiveCell.Value
        Worksheets("Sheet2").Activate
        For k = 1 To inRowCountWs2
            WS2 = ActiveCell.Value
            If (WS1 = WS2) Then
                Worksheets("Sheet3").Activate
                write ws1 and ws2 data to ws3
                Next i ' found match and wrote it no need to search the rest
             Else
                Next k ' no match check next ws2 cell
            End If
        Next k ' redundant or else statement is redundant leave for now
        Worksheets("Sheet1").Activate
    Next i ' grab next value from ws1
End Sub

Thanks
Frank