Search Range for string, then copy that cell to another worksheet

[Guest]

On Worksheet1 I've got 6 sets of ranges (D3436, D5062, D6678, and so on
for a total of 6 ranges) that may contain the string "ACS" somewhere in the
cell.

I want to search these ranges, and copy both cells to the left of the cell
containing "ACS", the actual cell containing "ACS", and the cell directly to
the right to Worksheet2.

For example,
Worksheet1!D50 contains "ACS"
so
the cells in Worksheet1!B50:E50 are copied to a range in Worksheet2 (A820)
specifically in the first row of the range A88, because it is the first
instance of "ACS" found in the source cells.

When "ACS" is found again in Worksheet1 (say in cell D60),
the cells in Worksheet1!B60:E60 are copied to the 2nd row of the range in
Worksheet2 (A99).

And so on until all the ranges in Worksheet1 have been searched.

 

[merjet]

Sub Macro1()
Dim c As Range
Dim rng As Range
Dim iRow As Integer

Set rng = Worksheets(1).Range("D3436, D5062, D6678")
iRow = 8
For Each c In rng
If InStr(c, "ACS") > 0 Then
Worksheets(1).Range("B" & c.Row & ":E" & c.Row).Copy _
Destination:=Worksheets(2).Range("A" & iRow & "" & iRow)
iRow = iRow + 1
End If
Next c
End Sub

Hth,
Merjet