vbscript: create new excel file from an existing excel sheet with selected rows

See more:

VBScript

Hi I am new to using script.I found the script in a forum ‘Creating a new Excel file from an existing Excel Sheet.I want to Loop through the range and copy rows in new sheet, I tried to find the keywords then copy the rows in new sheet.if it is possible to do that way can someone help me please

Set c =  objSheet.UsedRange.Find (SearchKeyWord) ‘ data to find
For each c in objSheet.UsedRange ‘ Loop through the used range
If c    =    SearchKeyWord1     then

‘Creating a new Excel file from an existing Excel Sheet

Function CopySheet (SourceFile, SheetName, DestinationFile)

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = True

Set objWorkbook1= objExcel.Workbooks.Open(SourceFile)
Set objWorkbook2= objExcel.Workbooks.Add()

objWorkbook1.Worksheets(SheetName).UsedRange.Copy
objWorkbook2.Worksheets("Sheet1″).Range("A1″).PasteSpecial Paste =xlValues
objWorkbook2.Worksheets("Sheet1″).Name    =    "Global"
objWorkbook2.saveAs(DestinationFile)
objWorkbook1.close
objWorkbook2.close
set objExcel=nothing

End Function