Boa tarde!!

Não testado!
Tente adptar

Sub TesteAleVBA()
'Esta macro usa a coluna C como a coluna de comparação:
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim i3 As Long, j As Long, jj As Long
i3 = 1
Dim CheckColumn As Integer
CheckColumn = 3
Set s1 = Sheets("s1") 'O nome de suas planilhas
Set s2 = Sheets("s2")
Set s3 = Sheets("s3")
j = s1.Cells(Rows.Count, CheckColumn).End(xlUp).Row
For jj = 1 To j
    If s1.Cells(jj, CheckColumn).Value = s2.Cells(jj, CheckColumn).Value Then
        s1.Cells(jj, CheckColumn).EntireRow.Copy s3.Cells(i3, 1)
        i3 = i3 + 1
    End If
Next
End Sub