trying to find end of file fot empty cells

[barrowinfurnace]

Hi all,

I have code that fills in the blanks(with a 0) in a column om my sheet.The only problem is that when it gets to the end of my sheet it continues filling in the blank after my sheet has ended usually stop at around 300900 lines.So this slows thing up.
Is there a way I could get it to recognise the end of my file and stop filling in the blanks from there.

Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("I:I").Select
    Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

any help appreciated
Kind regards
BOF

[protonLeah]

    Columns("I:J").Delete Shift:=xlToLeft
    LR = Range("I1").CurrentRegion.Rows.Count
    Range("I1").Resize(RowSize:=LR).Replace _
        What:="", _
        Replacement:="0", _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        MatchCase:=False, _
        SearchFormat:=False, _
        ReplaceFormat:=False

[jolivanes]

Tell us what you want to achieve because you select Column I and delete it. You then delete it again. Do you want to delete 2 columns? If so, which ones? Columns I and J?
Don't select if not absolutely necessary.
This would delete 2 columns (I and J) also

Columns("I:J").Delete Shift:=xlToLeft

You then select the whole Column I and put a zero (0) in text in the empty cells.
If you want to enter zeros from the first empty cell in Column I to the last used cell in your used range, this should do that.

Dim lr As Long
lr = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(Cells(Rows.Count, "I").End(xlUp).Row, 9), Cells(lr, 9)).Value = 0

If all else fails, attach a sample that represents your workbook with a before and after.

I guess while I was typing, Ben gave you the solution.