Ranges with split rows combined into array issue

[Darren Smith]

The code below is to combine arrays with a gap between the ranges.
The array does not fill-in?
Says "Arr error 2015" & RunTime Error 13

Private Sub Fill_Details_Click()

TurnOff

Dim wsCSheet As Worksheet, JCM As Worksheet
Dim Col As Long, Row As Long
Dim Arr As Variant
Dim A As Integer, B As Integer

    Set JCM = ThisWorkbook.Worksheets("Job Card Master")

      Dim rngItem As Range: Set rngItem = JCM.Range("A13:A61,A66:A122")
       Dim rngDes As Range: Set rngDes = JCM.Range("C13:C61,C66:C122")
        Dim rngAllocHrs As Range: Set rngAllocHrs = JCM.Range("K1:K61,K66,K122")

    Set wsCSheet = ThisWorkbook.Worksheets("Check Sheet")


Dim RngAll As Range: Set RngAll = Union(rngItem, rngDes, rngAllocHrs)
            Arr = Application.Transpose(RngAll)

For Col = LBound(Arr) To UBound(Arr)
  For Row = LBound(Arr, 13) To UBound(Arr, 13)
  Next
    Next
  End If

  B = 12
For A = 12 To Arr

    If JCM.Cells(A, 1) <> "" Then
        Do Until Worksheets("Check Sheet").Cells(B, 2) = ""
        B = B + 1
        Loop
        wsCSheet.Cells(B, 1) = JCM.Cells(A, 1): wsCSheet.Cells(B, 2) = JCM.Cells(A, 3): wsCSheet.Cells(B, 6) = JCM.Cells(A, 11)
    End If
   
Next A

End sub

 

[StephenCrump]

The code you've posted doesn't make much sense, and doesn't even compile (you've got a superfluous Endif).

What do you want the code to do? It looks like you want to rearrange some input ranges into some other format? If so, perhaps you could show:

a) input, and
b) desired output?