Columns("D:I").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D1").Select
    ActiveSheet.Paste

##</code><code>##

#With simplifications...
#Assume you already have a $ExcelAp, $Book and $Sheet1 & 2 object/variable set up
$Sheet1->Columns("D:I")->Copy();
$Sheet2->Range("D1")->Select();
$Sheet2->Paste();