Macro to delete excessive rows

[ses0518]

I am having a hard time figuring this out and was hoping for a little help. I need a macro that looks at a specific calculated cell and deletes all data past that row. I have been looking and trying to write code to do this but can't seem to get what I want... Any ideas

 

[CharlesChuckieCharles]

first line selects the first empty row
the next selects down to the bottom of the worksheet
and the last deletes


Rows("13:13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

theres a start

Not enough info on the specific cell

 

[bjurney]

If I understand what you want, this should do the trick:

Sub DeleteRows()
Dim x As Integer
    For x = 2 To WorksheetFunction.CountA(Range("Sheet1!E:E")-1)
        If Range("E" & x).Value = "My Value" Then
            Range("F" & x & (":IV" & x)).ClearContents
        End If
    Next x
End Sub

Just change "My Value" to whatever the actual value is and adjust the column refrences.

 

[ses0518]

So I guess maybe I am unclear as what I am trying to do. The macro is for selecting data for audit. The macro first counts the rows, once the rows are counted, it places this total in AL1. It then looks at a table to determine what the initial sampling will be and places that number in AL2, then it places the expanded number in AL3. Then macro then sums this number and places that total into AL4. So example, universe of 372, initial sample is 30, the expanded is 38, the total is 68. In this example I want to delete the remaining 304 rows of data. The first row is a header. Does this make sense????

 

[ses0518]

Bjurney,

Thanks for the code, but I still can't seem to get it to do what I want....I still trying to figure it out, but it is driving me insane