Copy Cells From One Range to Another Without Using Selections
Sub CopyAndPasteWithoutSelectingCells(rngCopy As Range, rngPaste As Range) rngCopy.Copy Destination:=rngPaste.Cells(1) End Sub
Sub CopyAndPasteWithoutSelectingCells(rngCopy As Range, rngPaste As Range) rngCopy.Copy Destination:=rngPaste.Cells(1) End Sub