Got a code that works exactly how I like....
Need to add addtional if statements.
The range (h3:h) remains the same, but just need to know how to add a
few more If statments in a code.


Sub macro200()
Dim c As Range
Dim rng As Range
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
Set rng = ws.Range("h3:h" & ws.Cells(ws.Rows.Count,
"h").End(xlUp).Row)
For Each c In rng
If c.Value = Range("ao2").Value Then
c.Offset(0, 1).Value = c.Offset(0, 33).Value
End If
Next c

End Sub



thanx