User Select Destination Cell

[zcbeb10]

Hi, I have some simple code to copy a range from one worksheet to another:

Please Login or Register  to view this content.

I want to change the code so that instead of pasting to "AF27" the user can select the destination cell each time the macro is run.
How can this be achieved?

Thanks for your help.

[Whizbang]

Please Login or Register  to view this content.

[Internoob2]

Can you post a sample of the excel workbook you are working in?

[zcbeb10]

That's what i was after.
Many thanks for your help. Much appreciated!!

I have gone on to develop the code further for my needs.

[zcbeb10]

Using this code:
Range(Slct.Columns(4).Rows(1).Address & ":" & Slct.Columns(5).Rows(4).Address).Delete Shift:=xlToLeft

i modified it to paste a copied cell in to cell ranging between Columns(1).Rows(1) and a given value for column (x) defined by another cell:

ws1.Range("C3").Copy
ws1.Range(Slct.Columns(1).Rows(1).Address & ":" & Slct.Columns(ws1.Range("E3").Value).Rows(1).Address).Paste


Is there an easy way to use the SUM of 3 cells for the select column value I.e.:
ws1.Range(Slct.Columns(1).Rows(1).Address & ":" & Slct.Columns(ws1.Range("E3").Value + ws1.Range("E4").Value + ws1.Range("E5").Value).Rows(1).Address).Paste