Hey all,
*
Im running into trouble editing a macro to paste in the next available column, ive tried .Offset(0, 1) but it just keeps pasting in the same place, any help would be greatly appreciated
*
Sub Macro2()
'
' Macro2 Macro
'
*
'
*** ActiveWindow.SmallScroll Down:=-51
*** Range("C3:C4").Select
*** Selection.Copy
*** Sheets("Sheet 2").Select
*** Range("A2").Select
*** Selection.End(xlToRight).Select
*** Range("D2").Select
*** ActiveSheet.Paste
*** Sheets("Scoring Sheet").Select
*** ActiveWindow.SmallScroll Down:=6
*** Range("G23,G19,G15").Select
*** Range("G15").Activate
*** ActiveWindow.SmallScroll Down:=6
*** Range("G23,G19,G15,G28,G31,G35,G39").Select
*** Range("G39").Activate
*** ActiveWindow.SmallScroll Down:=9
*** Range("G23,G19,G15,G28,G31,G35,G39,G43").Select
*** Range("G43").Activate
*** Application.CutCopyMode = False
*** Selection.Copy
*** Sheets("Sheet 2").Select
*** Range("D5").Select
*** ActiveSheet.Paste
*** Sheets("Scoring Sheet").Select
*** ActiveWindow.SmallScroll Down:=12
*** Range("C49").Select
* **Application.CutCopyMode = False
*** Selection.Copy
*** Sheets("Sheet 2").Select
*** Range("D13").Select
*** Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
******* :=False, Transpose:=False
End Sub
*
*
I dont usually write macros i just tend to record so maybe Im way out here but again any advise you can give will help...
Thanks in advance!
*
Tom
Bookmarks