The following code works, (does what its supposed to do) But not to the cells i want it too. basically, it won't delete all the way down to a40, i assume something with the loop is making it think it has done enough but it hasn't. When i run the code, it deletes any cells down to about a 25, is there a better way for this delete macro to be?? Thanks
Sheets("Investment Allocation").Select
Dim cell As Range
Range("A7:A40").Select
For Each cell In Selection
If cell = Empty Then
cell.EntireRow.Delete
End If
Next cell
Sheets("Investment Allocation").Select
Dim cell As Range
Range("A7:A40").Select
For Each cell In Selection
If cell = Empty Then
cell.EntireRow.Delete
End If
Next cell