Как установить языковой режим css3 + svg для редактора ace

Это будет делать, я не люблю использовать (xlDown) в случае, если ячейка пуста.

Dim lRow As Long
lRow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).Row

With Sheets("Temp")
     .Range("A1:A" & lRow).Copy Sheets("Overview").Range("C40")
End With

Или если вы хотите просто использовать столбцы ...

Sheets("Temp").Columns(1).SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Overview").Range("C40")