Optimize code

Hello,
I have this code

Sub blabla
pocet = Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To pocet Step 3
        Range("A" & i & ":B" & i).Cut
        ii = i + 1
        Range("F" & ii).Select
        ActiveSheet.Paste
        iii = i + 2
        Range("B" & iii).Cut
        Range("B" & ii).Select
        ActiveSheet.Paste
    Next
End Sub

it works, but it's really slow ... I have more than 1000 rows and this code is really really slow ... it is possible to change it and macro will be faster? thanks for any help !

For starters you can try and put

Application.ScreenUpdating = False

at the beginning of the sub

and at the end

Application.ScreenUpdating = True

Also, you do not need to select an object to work with it

Not tested but you might be able to change it all to

Sub blabla()
pocet = Range("B" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 1 To pocet Step 3
        Range("A" & i & ":B" & i).Cut Range("F" & i + 1).Paste
        Range("B" & i + 2).Cut Range("B" & ii)
    Next
    Application.ScreenUpdating = True
End Sub

Take off the .paste

Maybe you can find some other ideas here...

http://blogs.office.com/b/microsoft-...practices.aspx

http://www.decisionmodels.com/

http://msdn.microsoft.com/en-us/library/aa730921.aspx