Looping - Copy Paste Macro Help

[hlpgilbert]

Good Afternoon,

I am using excel 2007, and I would like to create a looping macro for the below Code in which the macro would then go to column G:G, and paste into range store, and then go to Column H:H and again paste into range "store".

I will be adding a print function at the end of the macro, as I need to print out indvidual sheets with the first 5 columns being the same, and then the last column being the variable data for each store. Any help would be greatly appreciated.

Sub loop_paste_print()
'
' loop_paste_print Macro
'
'
Columns("F:F").Select
Selection.Copy
Application.Goto Reference:="store"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1").Select
Application.CutCopyMode = False
End Sub

 

[bappakarmakar]

Give column index and use a for loop.