Using a macro to paste to next blank column

Hi excelevator, I 've done the following and it now pretty much does what I need:

Sub Macro13() ' ' Macro13 Macro '

' Columns("C:C").Select Selection.Copy Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Range("A2").Select Application.CutCopyMode = False Selection.Copy ActiveCell.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.Copy Range("G17").Select ActiveSheet.Paste Range("G33").Select ActiveSheet.Paste Range("G49").Select ActiveSheet.Paste Range("G65").Select ActiveSheet.Paste Range("G80").Select ActiveSheet.Paste Range("G96").Select ActiveSheet.Paste Range("G112").Select ActiveSheet.Paste Range("G128").Select ActiveSheet.Paste Range("G144").Select ActiveSheet.Paste Range("G160").Select ActiveSheet.Paste Range("G176").Select ActiveSheet.Paste Range("G192").Select ActiveSheet.Paste Range("G208").Select ActiveSheet.Paste Range("G224").Select ActiveSheet.Paste Range("G238").Select ActiveSheet.Paste Range("G254").Select ActiveSheet.Paste Range("G270").Select ActiveSheet.Paste Range("G285").Select ActiveSheet.Paste Range("G300").Select ActiveSheet.Paste Range("G315").Select ActiveSheet.Paste Range("G330").Select ActiveSheet.Paste

ActiveWindow.ScrollRow = 1

End Sub

The only issue is it's now overwriting cell B2 with the contents of A2 and I have no idea why. Is there something you can see that might be doing this?

/r/excel Thread Parent