hide unsequential columns in vba

Hi all,

I'm using Excel 2003 and want to hide columns D:E & I:J. I have script as follows which hides I:J but I am unsure how to get it to include the other 2 columns. Grateful for any advice.

Sub JobPricingCustomerPrint()
    Dim rPrt        As Range

    ActiveSheet.Protect DrawingObjects:=True, _
                        Contents:=True, _
                        Scenarios:=True, _
                        UserInterfaceOnly:=True
    With Columns("I:J")
        .Hidden = True
        With Range("K4")
            .Value = "Cost Each"

            Set rPrt = Cells.Find(What:="*", _
                                  After:=Cells(Rows.Count, Columns.Count), _
                                  SearchDirection:=xlPrevious)
            'Range("B1", Cells(rPrt.Row, "N")).PrintOut Copies:=1
            Range("B1", Cells(rPrt.Row, "N")).PrintPreview

            .Value = "Customer Cost Each"
        End With
        .Hidden = False
    End With
End Sub