Code to copy columns and insert down row across columns for a defined number

[Joneedshelp]

Hello, I need to copy 20 rows (not including title) from one column (A2:A21) and then corresponding rows from another column (B2:B21), then the same first column (A2:B21) and the next column (e.g. C2:B21) etc. for 5 times (columns B-F) then move to the next lots of rows and do the same thing 20 rows (this time there is no title) from one column (A22:A41) and then corresponding rows from another column (B22:B41), then the same first column (A22:B41) and the next column (e.g. C22:B41) etc. for 5 times (columns B-F) for an undefined number of times until I run out of data (not all data collected yet. Please help
Data looks like this

Etc.
Thanks for your help
Jo

 

[onlyadrafter]

Hello,

you haven't specified where you want the new data to do, so have assumed it goes into col J

Sub COPY_SPECIES()
    Application.ScreenUpdating = False
    For MY_ROWS = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 20
        For MY_COLS = 2 To 6
            Cells(MY_ROWS, 1).Resize(20).Copy
            Range("J" & Range("J" & Rows.Count).End(xlUp).Offset(1, 0).Row).PasteSpecial (xlPasteValues)
            Cells(MY_ROWS, MY_COLS).Resize(20).Copy
            Range("K" & Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Row).PasteSpecial (xlPasteValues)
        Next MY_COLS
    Next MY_ROWS
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

is this any use?

 

[Joneedshelp]

Perfect. Thanks a bunch!