Try something like this instead: Sheets("SHIFTS").Range("A20:C28").Value = Sheets ("A3").Range("D1:F9").Value