problem deleting last cell in a specific row

[mehdoush]

hey everyone

i'm using a table like this one :

A B C D E

1 Main | value | value | value | value
2 Extra | value | value | value | value
3 Main | value | value | value | value
.
.
n Extra | value | value | value | value

i want to delete every cell in column "E" only when cell in column "A" contains "Extra" value.

help plz

regards

 

[Prense01]

How large is this table? How many rows?

 

[mehdoush]

thanks i think i solved the problem here's the solution:

  Dim MyColumn As String
Dim MyRange As Range, MyRange1 As Range
MyColumn = "A"
myvalue = "extra"
lastrow = Cells(Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
 For Each c In MyRange
      If (c.Value) = myvalue Then
         c.Offset(0, 4).clear

      End If
     Next c

regards