J
J.W. Aldridge
Selection.Cut Destination:=Columns("B:B")
I recenty got a new pc at work with msoffice 2007.
A macro that i had previously recorded is no longer working.
The error message is as follows: (Followed by the code)
A selections including both inside a table and below it cannot be
copied and inserted into that table. Select cells outside the table
and try inserting the data again.
You have attempted to fill data in a way not supportted by the table.
code:
Sub work_nesi()
Columns("F:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("F:F").Select
Selection.Cut Destination:=Columns("B:B")
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
I recenty got a new pc at work with msoffice 2007.
A macro that i had previously recorded is no longer working.
The error message is as follows: (Followed by the code)
A selections including both inside a table and below it cannot be
copied and inserted into that table. Select cells outside the table
and try inserting the data again.
You have attempted to fill data in a way not supportted by the table.
code:
Sub work_nesi()
Columns("F:K").Select
Range("K1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("F:F").Select
Selection.Cut Destination:=Columns("B:B")
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub