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