Zygan

In your code you have used Range("A1:A2653")

Pedros required code to autofill to the last active row, your code does not identify the last active row.