cut and paste

MikeroSoft · #1 (**permalink**) 07-05-06, 10:34

i am trying to cut colm a and paste after last colm, i get an error with my code

Dim i As Integer

Range("A:A").Cut

i = ActiveSheet.UsedRange.Columns.Count + 1
Columns(0, i).PasteSpecial xlPasteAll

mkggoh · #2 (**permalink**) 07-05-06, 20:56

Quote:

Originally Posted by MikeroSoft

i am trying to cut colm a and paste after last colm, i get an error with my code

Dim i As Integer

Range("A:A").Cut

i = ActiveSheet.UsedRange.Columns.Count + 1
Columns(0, i).PasteSpecial xlPasteAll

try this:

Quote:

Private Sub cutAndPaste()
Dim i As Integer

Worksheets("Sheet1").Select
ActiveSheet.Range("A:A").Cut
i = ActiveSheet.Range("A1").End(xlToRight).Column
ActiveSheet.Range("A1").Select
ActiveCell.Offset(0, i + 1).Select
ActiveSheet.Paste

End Sub

Hope this helps

Internet Services

Web Development

Digital Marketing

Consumer Tech