Пример макроса: Копирование значений ячеек из диапазона в другой

Sub ForEachCell1()    '' e19
    Dim cell As Range
    For Each cell In Sheets("Sheet1").Range("A1:A10")
        cell.Offset(0, 1).value = cell.value
    Next cell
End Sub

(function() {
    var oSheet = Api.GetSheet("Sheet1");
    var oRange = oSheet.GetRange("A1:A10");
    oRange.ForEach(function(cell) {
        oSheet.GetCells(cell.GetRow(), cell.GetCol()+1).SetValue(cell.GetValue());    
    });
})();