Autofill code error

[stevetothink]

I have code that autofills B9:B if there is corresponding data in column A. It works fine when there is more than one row of data in the file. However it fails if column A only has one cell populated in a single row. Is there a way to fix my code so it will not fail in my scenario above?

Range("B9").AutoFill Destination:=Range("B9:B" & Cells(Rows.Count, "A").End(xlUp).row)


Thanks,
Steve

[xladept]

Hi Stevetothink,

Sometimes, when the End(xlUp) just doesn't work, I revert to the old do loop:

Please Login or Register  to view this content.

[stevetothink]

I'm not sure why but this doesn't work. Any other possible solutions? I have several autofills throughout my macro so I'm looking for a solution that will fix them all.

Thanks,
Steve

[xladept]

Since, you're filling from the 9th row do we need to count from 9?

Please Login or Register  to view this content.