In VBA, Find dat, if its there in workbook, copy of entire column, if not i want chec

[Mariappan E]

I have two workbook, one is master file, i want some data pick up from master file how i can use find, if the data is available, copy of entire column & past another work if its not there i want check another data...please give advice...

For your reference:

Dim rFound As Range
 
      ActiveWindow.ActivateNext
    Range("A1").Select
    Selection.AutoFilter
    Range("A1").Select
    Selection.End(xlToRight).Select
    Selection.AutoFilter Field:=131, Criteria1:="Y"
    Selection.AutoFilter Field:=129, Criteria1:="=>=60%"
    ActiveWindow.ActivateNext
    'cc = Range(Selection, Selection.End(xlDown)).Select
    For i = 1 To 35
    Sheets("MPI-Total").Select
    Sheets("MPI-Total").Range("A24").Select
    x = Sheets("MPI-Total").Cells(24, i)
    ActiveWindow.ActivateNext
    On Error Resume Next
    With Sheet1
Set rFound = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
           ' On Error GoTo 0
 
        If Not rFound Is Nothing Then Application.Goto rFound, False
 
    End With
 
                                  ActiveCell.Select
  Selection.EntireColumn.Select
     Selection.Copy
    ActiveWindow.ActivateNext
    Cells(25, i).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    'MsgBox x
 
    Next i