Select multiple columns, copy and paste in the next free colum

[cbprado]

Saw many different formulas for selecting cells etc but couldnt find an answer to my question:

a) I need to select the whole Columns A, B an C (lets say), n have it copied to D (that is free). Then the contents will be cpied to D, E, F. Next time I ru the script, it must copy ABC and paste to GHI so on...

b) Next step would be insert the number of instances of ABC to the next available columns (like question (a) above)

Any hints?

Thank you all

 

[ravishankar]

Sub prado()
Dim z As String, x As Integer, y As Integer
y = Cells(1, Columns.Count).End(xlToLeft).Column
x = Cells(Rows.Count, 1).End(xlUp).Row
If y <= 26 Then
z = Chr(y + 64)
Else
z = Chr(y / 26 + 64) & Chr((y Mod 26) + 64)
End If
Range("A1:C" & x).Copy
Range(z & 1).PasteSpecial
MsgBox "complete"
End Sub

These codes successively copy col A to C to the next available column till ZZ.
Ravi shakar

 

[Fluff]

@ravishankar
Your code will copy to the wrong column. Also when posting code please use code tags (the # icon in the reply window), not quote tags. Cheers
@cbprado
This will copy cols A:C to the next free column

Sub CopyCols()
   Dim Nc As Long
   Nc = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
   Range("A:C").Copy Cells(1, Nc)
End Sub

and I'm not sure what you mean with part b

 

[cbprado]

A BIG than you! it works beautifully...

he scn question (b) was relate to automatizing the copy of N instances rather than run the macro N times in order to get N copies. For instance, I need to copy A:C 10 times on the following free columns (would like to inform the nubr of instnces)

tks

@ravishankar
Your code will copy to the wrong column. Also when posting code please use code tags (the # icon in the reply window), not quote tags. Cheers
@cbprado
This will copy cols A:C to the next free column

Sub CopyCols()
   Dim Nc As Long
   Nc = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
   Range("A:C").Copy Cells(1, Nc)
End Sub

and I'm not sure what you mean with part b

 

[Fluff]

How about

Sub CopyCols()
   Dim Nc As Long
   Dim Qty As Variant
   Nc = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
   Qty = InputBox("Enter the number of copies to be made")
   If IsNumeric(Qty) Then Range("A:C").Copy Cells(1, Nc).Resize(, 3 * Qty)
End Sub

 

[cbprado]

You are the greatest!!! A BIG thank YOU!

 

[Fluff]

Glad to help & thanks for the feedback