Search Range for string, then copy that cell to another worksheet
Sub Macro1()
Dim c As Range
Dim rng As Range
Dim iRow As Integer
Set rng = Worksheets(1).Range("D34:D36, D50:D62, D66:D78")
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 & ":D" & iRow)
iRow = iRow + 1
End If
Next c
End Sub
Hth,
Merjet
|