For Each x In .Range("A1:A" - Any way to select column but shorten the range?

[BPSJACK]

Hi guys,

I have a macro which looks at columns A & B, looks for matching data, and copies adjacent cells to a new column.

However once the macro completes, the sheet now contains 1048576 rows. I only need to apply the macro down to row 10'000. I thought if I changed

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

then it might solve it but I just get a error 1004 range of object errors.

Any ideas? Below is the sub in question.

Please Login or Register  to view this content.

[nathansav]

.Range("A1:A" & .range("a1").End(xlDown).Row).cells

Although, where are you getting the error?

[AB33]

Please Login or Register  to view this content.

[BPSJACK]

That's brilliant, thank you for your help!