Sub test()
Dim columnG As Variant, columnOR As Variant, columnZ As Variant
With Worksheets("Sheet1")
columnG = Intersect(.UsedRange, .Range("G:G"))
columnOR = Intersect(.UsedRange, .Range("O:R"))
columnZ = Intersect(.UsedRange, .Range("Z:Z"))
End With
With Worksheets("Sheet2")
Intersect(.UsedRange, .Range("C:I")).ClearContents
.Range("C2").Resize(UBound(columnG, 1), 1).Value = columnG
.Range("D2").Resize(UBound(columnOR, 1), UBound(columnOR, 2)).Value = columnOR
.Range("I2").Resize(UBound(columnZ, 1), 1).Value = columnZ
End With
End Sub