SourceCells.Copy 
TargetSht.Cells(2, SourceCol).pasteSpecial(12)
Application.CutCopyMode = False