I have data in cells A1..L1. I have a condition (A,B or C) in cells
H30..S30. Cell A1 corresponds to h30, B1 to I30, etc.

I need a routine that will copy and paste the data down 6 rows based up on
the condition. So for each cell in H30..S30 that has A in it, the routine
will then paste the value 6 rows down.

Any help is appreciated.

Regards

This may get you started. You can modify the range as needed.

Sub Copyif()
Dim MyRange As Range
Dim MyCell As Range
Set MyRange = Range("H30:S30")
For Each MyCell In MyRange
If MyCell.Value = "A" Then
MyCell.Copy Destination:=Range(MyCell.Address) _
.Offset(6, 0)
End If
Next
End Sub


Ronbo wrote:
> I have data in cells A1..L1. I have a condition (A,B or C) in cells
> H30..S30. Cell A1 corresponds to h30, B1 to I30, etc.
>
> I need a routine that will copy and paste the data down 6 rows based up on
> the condition. So for each cell in H30..S30 that has A in it, the routine
> will then paste the value 6 rows down.
>
> Any help is appreciated.
>
> Regards