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?