how to select cells, then copy the same selected rows in another row

[espenskeie]

Hello

I have some selected cells in column A, they are not consecutive. I would like to copy these values and then copy the same area but from a different column...

The code I have here is only working when I have a consecutive selection.

Set rng = Selection


    fr = rng.Cells(1, 1).Row
    lr = rng(rng.Count).Row


    rng.Copy

Kind regards
Espen

 

[Sixthsense]

Not sure what you are trying to do What is the purpose of fr and lr in your code?

 

[Useful]

try
this line allow you to select used range in Column "A"

Intersect(ActiveSheet.UsedRange, Columns(1)).Select

Good luck

 

[espenskeie]

Thanks Useful

BTW the idea of fr and lr was to detect first and last row when I selected the area consecutive, but if I select by the use of Ctrl-button, then I cannot use firstrow and lastrow...

Anyway, first part of problem is now solved. Next problem is unfortunately waiting

Kind regards
Espen

 

[Useful]

You are welcome! what is your second problem? to select only non blank cells?

 

[espenskeie]

Hello Useful

Thank you for helping me, right now I just forgot where I was going. I have some issue with a lookup and match a datevalue, but I guess it is suited for a new thread. I will post it right away.

Kind regards
Espen