copy and paste every second row

[luvbite38]

Hi Guys,

I am trying do the following can someone help pls...


Select F20:AA29, copy and paste as value
Next Select range
(F20+11:AA29+11) i.e. F31:AA40, copy and paste as value
Next Select range
(F31+11:AA40+11) - F42:AA51

and so on until

last blank cell in the column A.

I hope this makes sense?

Please suggest a quicker and fastest fix to run this loop.

Thanks in advance

LB

 

[rollis13]

Something like this should do:

Option Explicit
Sub test()
    Dim a As Long
    Dim lr As Long
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For a = 20 To lr Step 11
        Range("F" & a & ":AA" & a + 9).Copy
        '...
        'add your paste code here or to line above
        '...
    Next a
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

 

[luvbite38]

Something like this should do:

Option Explicit
Sub test()
    Dim a As Long
    Dim lr As Long
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For a = 20 To lr Step 11
        Range("F" & a & ":AA" & a + 9).Copy
        '...
        'add your paste code here or to line above
        '...
    Next a
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

YOU"RE AMAZINGOOOOOOO

Thanks a million

 

[rollis13]

Glad being of some help .