VBA conditional copy and paste into another WB

Hi JyothiGrace,

Your problem looks like it needs a Power Query answer instead of VBA. You could use PQ and filter a File to only show the Names of "Kendal".

On your specific problem it looks like you are looking for Kendal in the Supervisor column while it is really in the Name column. If you are close to writing the VBA to do your filter something like Name<>Supervisor is hard to find when your code is doing many other things.

I hope this helps.

Hello.
I am assuming that the three workbooks are in the same folder.
Test:

PHP Code: 

Sub Log_Copy_Paste()
Dim ws2 As Worksheet, myPath$, myFile$, Tmp
Dim Rng As Range, Tbl As ListObject, iKey$, piv As Range
Application.ScreenUpdating = False
Rem ----------------------------------------\
myPath = ThisWorkbook.Path: myFile = "Coaching Report - Copy"
Tmp = Dir(myPath & "\" & myFile & "*")
If Tmp = "" Then MsgBox "Workbook: " & myPath & "\" & myFile & "*" & vbLf & "not found.": End
Rem ----------------------------------------\
Set Rng = Workbooks.Open(myPath & "\" & Tmp, ReadOnly:=True).Sheets(1).Range("d1").ListObject.Range
Rem ----------------------------------------\
myPath = ThisWorkbook.Path: myFile = "Coaching Report - Dest"
Tmp = Dir(myPath & "\" & myFile & "*")
If Tmp = "" Then MsgBox "Workbook: " & myPath & "\" & myFile & "*" & vbLf & "not found.": End
Rem ----------------------------------------\
Set ws2 = Workbooks.Open(myPath & "\" & Tmp).Sheets(1)
Set Tbl = ws2.Range("bk1").ListObject
iKey = ws2.Range("b3")
Rem ----------------------------------------\
Set piv = Tbl.Range(1).Offset(1 + Tbl.ListRows.Count)
piv(2) = "=" & Rng(2, 3).Address(0, 0, external:=True) & " = """ & iKey & """"
Rng.AdvancedFilter 2, piv.Resize(2), piv(3), False
piv = ".": Tbl.Resize Tbl.Range.CurrentRegion
piv.Resize(3, Tbl.ListColumns.Count).Delete xlShiftUp
Rng.Worksheet.Parent.Close False
End Sub