Sub Macro4()'' Macro4 Macro'' Range("K14:K24").Select Selection.Copy Range("D33").Select Selection.PasteSpecial Transpose:=TrueEnd Sub