Copy lines based on a variable

[Legacy 93538]

Hi

Does anyone know whether its possible to get a macro to copy rows in a workbook sheet which have certain numbers in them?

For example select and copy all the rows in the worksheet which have 4 in the B Column and then paste them into the another sheet in A4.

This is what i have so far:

For X = LBound(PathArray) To UBound(PathArray)
    Set CCTLWB = Workbooks.Open(PathArray(X) & "\" & "*TrackerLog.*")
    Set CCTLWBCSht = CCTLWB.Sheets("Commentary")
    Set CCTLWBCLSht = CCTLWB.Sheets("CallLog")
 
    L = WorksheetFunction.CountA(CCTLWBCSht.Range("A:A"))
    
    CCTLWBCSht.Select
    CCTLWBCSht.Range("A" & L & ":N" & L).Copy Destination:=CCTWB.Sheets(SheetArray).Range("A1")
        
    CCTLWBCLSht.Select
    <code to copy and paste the correct line here>

Next X

 

[Sektor]

Can you describe all this in step-by-step?

 

[Legacy 93538]

The code i pasted works like this:

• First opens the workbook using the array being looped
• It then sets the workbook and sheets as variables.
• It will then select the first sheet variables
• Then it copies data from one sheet and paste it into another workbook opened previously.
• Then it selects the 2nd sheet variable the workbook opened

After this the code i need help with will be enter after this, i need a piece of code that will select rows in the CCTWBCLSht sheet variable which have the number 4 in the B column and paste it in to the CCTWB.sheets on cell A4