Error: runtime error 1004 paste method of worksheet class

[Ricardo4545]

Hello all, I just got introduced to VBA and am trying my first steps in it.
I have data in 3 consecutive rows (let's say A1:E3) and every 3 rows of data, I want to move that "block" --> two cells to the right.
So basically, I have:

A1 B1 C1 D1 E1
A2 B2 C2 D2 E2
A3 B3 C3 D3 E3

That want to turn into

A1     B1     C1     D1     E1
A2     B2     C2     D2     E2
A3     B3     C3     D3     E3

Thing is, I need to start o the active cell and not specifically A1 pushing it specifically to A3.
I'm using this code:

Sub Macro1()
Do Until IsEmpty(ActiveCell.Offset(0, 1))

ActiveCell.Offset(0, 1).Select
ActiveCell.Resize(3, 1).Select
Range(Selection, Selection.End(xlToRight)).Cut
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste

Loop
End Sub

But i get the error: "runtime error 1004 method of worksheet class". Everything works just fine until the last "block" of data (E1:E3).
The line "ActiveSheet.Paste". Gets highlighted.
This may sound like an ultra naïve question, but I can't solve it.

Thanks in advance!

 

[Michael M]

Maybe this
Adjust the starting point to suit

Sub MM1()
For c = 2 To 10 Step 2 ' the 2 is the starting column
Columns(c).Insert
Next
End Sub

 

[sericom]

This should solve your error

Sub Macro1()
   Do Until IsEmpty(ActiveCell.Offset(0, 1))

      ActiveCell.Offset(0, 1).Select
      ActiveCell.Resize(3, 1).Select
      Range(Selection, Selection.End(xlToRight)).Cut ActiveCell.Offset(0, 2)
   Loop
End Sub

 

[Ricardo4545]

Maybe this
Adjust the starting point to suit

Sub MM1()
For c = 2 To 10 Step 2 ' the 2 is the starting column
Columns(c).Insert
Next
End Sub

Hi Michael!
Thanks a million first of all for the reply
I tried your code but it inserts columns between the data. I only wanted to insert blank cells between the presented data as I have some more information above that didn't want to be split.

 

[Ricardo4545]

Hi sericom!
Thanks for your reply.
The code you provided inserts blank cells only between the frist and second "blocks". So what it makes is:

A1        B1 C1 D1 E1 
A2        B2 C2 D2 E2
A3        B3 C3 D3 E3

 

[Michael M]

Maybe this....but I'm not sure using seletcion is the way to go, as it could cause lots of errors
You need to ensure the left / top is selected for it to work correctly...no a good method !
You also need to adjust the line higlighted to suit the number of columns

Sub MM1()
For x = 1 To 3 ' 3 will do a block of 3 units
      Range(ActiveCell.Offset(0, x), ActiveCell.Offset(2, x)).Select
      Selection.Insert
Next x
End Sub