Copying one sheet to other Sheets

[jrodrig50]

Hello,
Could someone provide me some direction in developing a macro for copying elements from one worksheet to multiple other worksheets.

A little description of what I would like to accomplish: I have 10 columns of data in sheet 1 of a workbook. What I would like to do is copy columns: A,B,C,D,E, and F to sheet2, then I would like to copy columns A,B,C,D,E, and G to sheet 3, and then I would like to copy columns A,B,C,D,E, and H to sheet 4.

As you can see the first 5 columns are copied to a new worksheet, plus one varying column.

To make things more interesting, I would like to make this dynamic. Such that, in the future I may need the first 6 columns to be constantly copied, or the first 7 depending on the data.

 

[jrodrig50]

I've started by declaring a variable for the number of static columns, and another variable for the number of varying columns like so:

Public Sub CopyMacro_1()
Dim iBannerBreaks As Integer
Dim iNumOpens As Integer

iBannerBreaks = InputBox("Please enter the number of Banner Break columns: ")
iNumOpens = InputBox("Please enter the number of Open Ends: ")

End Sub