这段代码哪里错了

sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
  sin是另一个工作簿一个工作表，想把sin的range范围复制到当前工作簿的一个工作表，总是不成功
不是说应用程序错误，就是属性值错误
完整的在下面Option Explicit
    
Sub demo()
    
    Debug.Print Range("A1").End(xlDown).Row
    
    Dim ws As Workbook, sin As Worksheet, i As Integer, j As Integer, k As Integer, gol As Worksheet
    
    k = 1
    
    Set ws = Workbooks.Open(Filename:="E:\案例vba\问题\数据.xls")
    Set gol = ThisWorkbook.Worksheets("35")
   
    
    For Each sin In ws.Sheets
        
        i = sin.Range("D1").End(xlDown).Row
        j = sin.Range("D65536").End(xlUp).Row
        
        
        
        sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
        
        
        
        k = k + 1
        
    Next sin
End Sub