kopieren funktioniert nicht

Sub OpenAllWorkbooks_herber()
    
    Dim MyFile As String, sPath As String, groupe As String
    Dim mybook2 As Workbook, sh2 As Worksheet, lastcol&, rng As Range
    
    'Dim getparentdirectory
    Application.ScreenUpdating = False
    groupe = "Agricultural"
    sPath = "/Users/js/Desktop/" & groupe & "/"
     
   'getparentdirectory = Left(MyFiles, InStrRev(MyFiles, "/"))
    Set mybook2 = Workbooks.Open(FileName:="/Users/js/Documents/Sheet template.xlsx", Editable:=True)
    lastcol = mybook2.Sheets(1).Cells(5, Columns.Count).End(xlToLeft).Column
    
    MyFile = Dir(sPath & "*.xlsx")
    Do While MyFile > ""
        With Workbooks.Open(sPath & MyFile)
          With .Sheets(1)
            Set rng = Intersect(.UsedRange, .Range("L17:L180"))
            mybook2.Sheets(1).Cells(17, lastcol + 1).Resize(rng.Rows.Count, 1).Value = rng.Value
            Set rngba = Intersect(.UsedRange, .Range("k6"))
            Debug.Print (rng2ba)
            mybook2.Sheets(1).Cells(4, lastcol + 1).Value = rngba.Value
            mybook2.Sheets(1).Cells(6, lastcol + 1).Value = "As a Percentage of Revenue"
            mybook2.Sheets(1).Cells(8, lastcol + 1).Value = "1"
            lastcol = lastcol + 1
            
          End With
          
          With .Sheets(2)
#### Hier gibts Probleme. Kann spalte K nicht auf mybook2 spalte b kopieren #######
            Set rng_balance = Intersect(.UsedRange, .Range("K1:K200"))
            'Set rng_balance = Intersect(.UsedRange, .Range("j3:j4"))
            mybook2.Sheets(2).Cells(1, 2).Value = rng_balance.Value
            .Parent.Close
          End With
      End With
        MyFile = Dir()
    Loop
 
    mybook2.SaveAs FileName:=sPath & "summary sheet testing.xlsx"
    mybook2.Close
    Application.ScreenUpdating = True
    Debug.Print ("Fertig")
End Sub