sync excel file to google sheets by using sheetgo. But in that way i can update the single cells. Any one can can help to copy or paste the cells

Question

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:Z1000")) Is Nothing Then

Dim objHTTP As Object