Macros code for Loop transfer to another sheet

Hi, can someone me with a macro code

trying to copy data from a master sheet to sheet2 and have it loop 10x
wish to copy B4:H63 and paste on to sheet2 on E5:K64 loop 10 times

then would like to copy J4:K63 and paste on to sheet2 on C5:D64
then the next of row of columns to copy L4:M63 and paste on to sheet2 where C5:D64 ends

in that sequence

can this be possible

please see attach

Hi Trebor76

it worked well l am really pleased but one of columns under was repeated twice and when l looped it 15 times it didn't match.

Option Explicit
Sub Macro1()

Dim lngMyLoop As Long
Dim lngPasteRow As Long
Dim varMyCols As Variant
Dim strMyCols() As String

Application.ScreenUpdating = False

For lngMyLoop = 1 To 15
If lngMyLoop = 1 Then
Sheets("Master").Range("B5:H63").Copy Destination:=Sheets("Sheet2").Range("E5")
Else
lngPasteRow = Sheets("Sheet2").Range("E:K").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Sheets("Master").Range("B5:H63").Copy Destination:=Sheets("Sheet2").Range("E" & lngPasteRow)
End If
Next lngMyLoop

lngMyLoop = 1

For Each varMyCols In Split("J-K L-M N-O P-Q R-S T-U V-W X-Y Y-Z Z-AA AB-AC AD-AE AF-AG AH-AI AJ-AK AL-AM")
strMyCols = Split(varMyCols, "-")
If lngMyLoop = 1 Then
Sheets("Master").Range(strMyCols(0) & "5:" & strMyCols(1) & "63").Copy Destination:=Sheets("Sheet2").Range("C5")
Else
lngPasteRow = Sheets("Sheet2").Range("C:D").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Sheets("Master").Range(strMyCols(0) & "5:" & strMyCols(1) & "63").Copy Destination:=Sheets("Sheet2").Range("C" & lngPasteRow)
End If
lngMyLoop = lngMyLoop + 1
Next varMyCols

Application.ScreenUpdating = True

End Sub

one of columns under header 8 (1 3755) was repeated twice and when l looped it 15 times it didn't match.

Thanks Trebor76 l have the error in the code had to delete Y-Z
(SOLVED)

Thanks l am truly grateful Trebor76 and all the experts