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

Can you be more specific about what you are trying to accomplish? That
is, whatever the ActiveCell is, delete the column or cell that is x
rows down and y rows to the right, etc. Also, when you say it fails at
the "Range", which statement is that? There are several statements
below that reference Ranges.

Mark


wrote:
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