will help myself :DDSelection.CopyActiveSheet.Paste Destination:=Range("E11")a = Range("E11").Valueb = Range("F11").ValueActiveCell.Value = a * bRange("E11").ClearContents