copy row to new sheet based on mulitple values in cell A

[phairplay]

Hi guys,

I have the following macro that was created for me where that finds a value in column A and copies it over to a new sheet.

'Replace Sheet1 with name of your source sheet
With Sheets("Sheet1")
  LR = .Range("A" & .Rows.Count).End(xlUp).row
  On Error Resume Next
  Set rng = .Range("A1").Resize(LR).Find(What:="C#", LookIn:=xlValues, LookAt:=xlWhole)
  On Error GoTo 0
  If Not rng Is Nothing Then
    Set rng = .Range(rng, rng.End(xlDown))
  Else
     End
  End If
End With



'Replace Sheet with name of your destination sheet
With Sheets("Sheet3")
    LR = .Range("A" & Rows.Count).End(xlUp).Offset(1).row
    .Range("A" & LR).Resize(rng.Rows.Count).EntireRow.value = rng.EntireRow.value
End With

could someone please help to have this change to find multiple values?

many thanks

 

[phairplay]

Hi,

Sorry I could really do with some help