A
ajg
I see There are a couple like these and eah one has a different answer.
Everytime It gets to Range it falls over, it does this with all macros
that i have recorded that use a referrance to range. Any suggestions?
Sub tidypasting()
'
' tidypasting Macro
' Cut unneccesary columns from Upgrades productivity
'
'
ActiveCell.Offset(0, 1).Columns("A:C").EntireColumn.Select
ActiveCell.Offset(1, 3).Range("A1").Activate
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(-1, -3).Range("A1:B1").Select
Selection.Delete Shift:=xlUp
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-9
ActiveWindow.SmallScroll Down:=-140
ActiveCell.Offset(0, -9).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
End Sub
Everytime It gets to Range it falls over, it does this with all macros
that i have recorded that use a referrance to range. Any suggestions?
Sub tidypasting()
'
' tidypasting Macro
' Cut unneccesary columns from Upgrades productivity
'
'
ActiveCell.Offset(0, 1).Columns("A:C").EntireColumn.Select
ActiveCell.Offset(1, 3).Range("A1").Activate
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(-1, -3).Range("A1:B1").Select
Selection.Delete Shift:=xlUp
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-9
ActiveWindow.SmallScroll Down:=-140
ActiveCell.Offset(0, -9).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
End Sub