DeleteInitialColumnsFromWorksheet

Note: This function depends on ReturnName

Sub DeleteInitialColumnsFromWorksheet( _
    ws As Worksheet, _
    NumberOfColumns As Integer _
)
    With ws
        .Columns( _
            ReturnName( _
                1 _
            ) & _
            ":" & _
            ReturnName( _
                NumberOfColumns _
            ) _
        ).Delete _
            Shift:=xlToLeft
    End With
End Sub