Question

I need to only delete cells 7B:7G, while leaving 7A alone. How do I do this using excel VBA?

Here is the code I have now:

Option Explicit

Sub Import()

    Dim lastrow As Long
    Dim wsIMP As Worksheet 'Import
    Dim wsTOT As Worksheet 'Total
    Dim wsSHI As Worksheet 'Shipped
    Dim wsEST As Worksheet 'Estimate
    Dim wsISS As Worksheet 'Issued
    Dim cel As Range

    Set wsIMP = Sheets("Import")
    Set wsTOT = Sheets("Total")
    Set wsSHI = Sheets("Shipped")
    Set wsEST = Sheets("Estimate")
    Set wsISS = Sheets("Issued")

    With wsIMP

        wsIMP.Range("E6").Cut wsIMP.Range("E5")
        wsIMP.Range("B7:G7").Delete (xlShiftUp)

    End With

End Sub

Answer 1

What you need to do is to delete range B7:G7, shifting cells left or up (depending on requirements):

range("B7:G7").delete(xlShiftToLeft)

or

range("B7:G7").delete(xlShiftUp)