Pasting to the next blank cell in the Column

[Tefleon]

Hi

I'm after help doing pretty much what the title says.

I have macro which selects a named table in my workbook and I use it copy these range to M1. This is fine and works okay however I would like to extend this so rather than M1, the selection is the first blank cell in the Column M.

I'm sure this is easy enough as I can see using counta(m:m) how many cells have been used but I can't work out how to influence the macro to do this.

Help?

Cheers

 

[njimack]

No need to count number of cells in Column M. Use End(xlDown), which is the equivalent of pressing Ctrl+down arrow key...

Range("Range1").Copy Range("M1").End(xlDown).Offset(1)