Removing rows after a calculation

[rhino4eva]

i have tried this on the boards b4, i may not have explained my probelm in a way that people understood. so i'll give it another try

i have a sheet that can vary in length
it is numerical data from an analyser i use
i need a macro that is able to scan down colunm "a" and calculate the average value for that column
i then need it to be able to delete any entries in column a that are less then 90% of the average

i have tried all sorts and am at my witts end if any can help i would be really grateful

 

[SteveO59L]

Do you want to delete the rows, or clear the values?

 

[rhino4eva]

thanks for looking at my post.
i would like to delete the entire row

 

[SteveO59L]

Dim i As Long
Dim LASTROW As Long
Dim c As Range, rng

Dim avg1 As Double

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

avg1 = WorksheetFunction.Average(Range("a1:a" & LASTROW))
avg1 = avg1 * 0.9

' ** Deletes rows where col A value < avg1"
For i = LASTROW To 1 Step -1
If Range("A" & i).Value < avg1 Then Range("A" & i).EntireRow.Delete Shift:=xlUp

Next i

 

[rhino4eva]

Thank you SteveO59L is works a treat . i was working from top downand it wasnt working . Your code works from last entry up .......... inspired