coping data based on specific Crieria

[howard]

I have descriptions in Col I.


where a/c 95915, 95925, 95950 are in Col G, I want the descriptions that are in the same row in Col I copied to Col H only for these account numbers

Book1
	G	H	I
1	95915	Tax	Sales
2	95915	Tax	Sales
3	95915	Tax	Sales
4	95925	Tax	Purchases
5	95925	Tax	Purchases
6	95950	Tax	admin
7	95950	Tax	Admin
Sheet1

This is what it should look like after running Macro

Book1
	G	H	I
1	95915	Sales	Sales
2	95915	Sales	Sales
3	95915	Sales	Sales
4	95925	Purchases	Purchases
5	95925	Purchases	Purchases
6	95950	admin	admin
7	95950	Admin	Admin
8
Sheet1

Your assistance is most appreciated

 

[Special-K99]

This works

Sub k1()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 7) = 95915 Or Cells(i, 7) = 95925 Or Cells(i, 7) = 95950 Then
    Cells(i, 8) = Cells(i, 9)
End If
Next i
End Sub

 

[howard]

Thanks for the help, much appreciated