Copying cell contents

[ruthm8611]

I have a spreadsheet where if column C = apple, I want the contents of columns E, F, G, H to copy to another area of the spreadsheet. Any help is appreciated.

 

[Smitty]

How does the value in column C change? Formula or Manually?

Where do you want the data copied to, and are there other criteria or destinations?

 

[ruthm8611]

Column C will not change. I want the contents of columns E, F, G, H on original sheet copied to another sheet in the same workbook.

 

[John Davis]

I have a spreadsheet where if column C = apple, I want the contents of columns E, F, G, H to copy to another area of the spreadsheet. Any help is appreciated.

Maybe:

Sub ruthm8611()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

With Range("C2:C" & lr)

    .AutoFilter Field:=1, Criteria1:="apple"
        
        With Range("E2:H" & lr)
        
            .SpecialCells(xlCellTypeVisible).Copy Sheets("Another Sheet").Range("E" & Rows.Count).End(3)(2)
        
        End With
    
    .AutoFilter
    
End With
        
End Sub

Make changes where needed.

Or manually

Data>Filter>Autofilter>"apple">select & copy visible cells from Columns E-H and paste to your desired location.