Reducing code for copy/cut paste

[nunuc]

Hi everyone,

first up - apologies for the very beginner level question, I have never learnt VBA and don't use it much, so I typically just play around until I get it to do what I want. No hate!

I am looking to cut down my code a little on 4 lines that I use quite a lot, which is basically just a copy or cut and paste. Here is an example:

Range("C2").Select    
Range(Selection, Selection.End(xlDown)).Copy
Range("T2").Select
ActiveSheet.Paste

Basically selecting an entire column (except the header) and pasting it to another area. What is an easier and cleaner way to accomplish this without having 4 lines of code, every time I do that? My current Macro does it about 8 times, so lots of unnecessary code.

I've played around with it a little and Google'd a bit, but none of that worked for me.

Thanks!
nunuc

 

[footoo]

Range([C2], [C2].End(xlDown)).Copy [T2]

What code are you using for the other 8 times?

 

[nunuc]

Thanks, worked a charm! Lots to learn

The other code looks very similar, can easily use that same method for those, eg.

Range("P2").SelectRange(Selection, Selection.End(xlDown)).Copy
Range("S2").Select
ActiveSheet.Paste

I just used that over and over.

Thank you kindly sir.

 

[footoo]

If you post all the cell refs to be copied and the corresponding destination cells, might be able to avoid repeating the code.

 

[footoo]

If you post all the cell refs to be copied and the corresponding destination cells, might be able to avoid repeating the code.

So for the two examples you posted, could do like this :

Dim s, d, i%
s = Array(3, 16)  'Source column numbers(for C and P)
d = Array(20, 19) 'Destination column numbers(for T and S)
For i = 0 To UBound(s)
    Range(Cells(2, s(i)), Cells(2, s(i)).End(xlDown)).Copy Cells(2, d(i))
Next

 

[nunuc]

So for the two examples you posted, could do like this :

Dim s, d, i%
s = Array(3, 16)  'Source column numbers(for C and P)
d = Array(20, 19) 'Destination column numbers(for T and S)
For i = 0 To UBound(s)
    Range(Cells(2, s(i)), Cells(2, s(i)).End(xlDown)).Copy Cells(2, d(i))
Next

Thank you, I will give that a go this afternoon and let you know if I get stuck.