Hello, I need some help, I want to know if it's possible to select mutiple columns from one row until down : for exemple select A5, B5, C5 until down and copy to paste it on a other sheet.
For the moment I use this type of code which move between sheets column by column
:
I'm trying to improv my skills on VBA, that why I want to know if it's possible to select A5,B5,C5,D5 until down in one line and copy that to paste it on the Paste_Sheet.

For the moment I use this type of code which move between sheets column by column

VBA Code:
Public CopyPaste()
Call Supp_Arr
Sheets("Original_Sheet").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Paste_Sheet").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Original_Sheet").Select
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Paste_Sheet").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Original_Sheet").Select
Range("C5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Paste_Sheet").Select
Range("C5").Select
ActiveSheet.Paste
Sheets("Original_Sheet").Select
Range("D5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Paste_Sheet").Select
Range("D5").Select
ActiveSheet.Paste
Sheets("Original_Sheet").Select
End Sub
I'm trying to improv my skills on VBA, that why I want to know if it's possible to select A5,B5,C5,D5 until down in one line and copy that to paste it on the Paste_Sheet.

Last edited: