Range.SetCellDataTypeFromCell (Excel)

Creates another instance of a Linked data type, such as Stocks or Geography, that exists in another cell. The new instance will be linked to the data source in the same way as the original, so it will refresh from the service if you call the Workbook.RefreshAll method.

SetCellDataTypeFromCell (SourceCell)

SourceCell: The range from which you want to copy the Linked data type. If the range has more than one cell in it, only the upper-left cell will be used.

ActiveCell.SetCellDataTypeFromCell SourceCell:=Range("A1")