Try the code below
Sub Test()
Dim SourceWorkSheet As Worksheet
Dim Condition As String
Set SourceWorkSheet = Application.InputBox("Select any cell on the source data sheet", , , , , , , 8).Parent
ThisWorkbook.Activate
Sheets("Encapsulation Data").Activate
Condition = Application.InputBox("Select any cell in column 2 with the correct condition", , , , , , , 8).Value
For N = 2 To SourceWorkSheet.Cells(SourceWorkSheet.Rows.Count, 1).End(xlUp).Row
For M = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(M, 1) = SourceWorkSheet.Cells(N, 1) And Cells(M, 2) = Condition Then
SourceWorkSheet.Range(SourceWorkSheet.Cells(N, 3), SourceWorkSheet.Cells(N, 12)).Copy Destination:=Cells(M, 4)
End If
Next M
Next N
End Sub
You will need to have both workbooks open and use the switch windows button to select the source sheet.
Open up the VBA editor by hitting ALT F11
Insert a new module by hitting Insert - Module
Paste the macro into the empty sheet
Hit ALT F11 to get back to the worksheet.
Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007.
Bookmarks