Macro to delete a group of CELLS

I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data. I
just want the macro to delete the 4 or 5 adjacent cells and move the data
block up (similar to a right click delete- which asks if you want up, right
left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like my
macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

Have you tried without

Range("E2378:L2378").Select

--
Don Guillett
SalesAid Software
[email protected]
<[email protected]> wrote in message
news:[email protected]...
>I am trying to get a macro to delete a group of cells as I parse down
>through the block of instrument data, to weed out blanks or corrupt data.
>I just want the macro to delete the 4 or 5 adjacent cells and move the data
>block up (similar to a right click delete- which asks if you want up, right
>left or entire row, etc
>
> Sub delete()
> '
> ' delete Macro
> ' Macro recorded 5/5/2006 by Paul
> '
> ' Keyboard Shortcut: Ctrl+d
> '
> Range("E2378:L2378").Select
> Selection.delete Shift:=xlUp
> End Sub.
>
> Only problem with recorder is it goes to a defined cell. I would like my
> macro to work wherever the cursor is- not always at E:2378 to L:2378
>
> I appreciate the help!
>
> Thanks
> Paul
>

Works like a charm. Thanks!

Paul


"Don Guillett" <[email protected]> wrote in message
news:%23%[email protected]...
> Have you tried without
>
> Range("E2378:L2378").Select
>
> --
> Don Guillett
> SalesAid Software
> [email protected]
> <[email protected]> wrote in message
> news:[email protected]...
>>I am trying to get a macro to delete a group of cells as I parse down
>>through the block of instrument data, to weed out blanks or corrupt data.
>>I just want the macro to delete the 4 or 5 adjacent cells and move the
>>data block up (similar to a right click delete- which asks if you want up,
>>right left or entire row, etc
>>
>> Sub delete()
>> '
>> ' delete Macro
>> ' Macro recorded 5/5/2006 by Paul
>> '
>> ' Keyboard Shortcut: Ctrl+d
>> '
>> Range("E2378:L2378").Select
>> Selection.delete Shift:=xlUp
>> End Sub.
>>
>> Only problem with recorder is it goes to a defined cell. I would like my
>> macro to work wherever the cursor is- not always at E:2378 to L:2378
>>
>> I appreciate the help!
>>
>> Thanks
>> Paul
>>
>
>

glad to help

--
Don Guillett
SalesAid Software
[email protected]
<[email protected]> wrote in message
news:[email protected]...
> Works like a charm. Thanks!
>
> Paul
>
>
> "Don Guillett" <[email protected]> wrote in message
> news:%23%[email protected]...
>> Have you tried without
>>
>> Range("E2378:L2378").Select
>>
>> --
>> Don Guillett
>> SalesAid Software
>> [email protected]
>> <[email protected]> wrote in message
>> news:[email protected]...
>>>I am trying to get a macro to delete a group of cells as I parse down
>>>through the block of instrument data, to weed out blanks or corrupt data.
>>>I just want the macro to delete the 4 or 5 adjacent cells and move the
>>>data block up (similar to a right click delete- which asks if you want
>>>up, right left or entire row, etc
>>>
>>> Sub delete()
>>> '
>>> ' delete Macro
>>> ' Macro recorded 5/5/2006 by Paul
>>> '
>>> ' Keyboard Shortcut: Ctrl+d
>>> '
>>> Range("E2378:L2378").Select
>>> Selection.delete Shift:=xlUp
>>> End Sub.
>>>
>>> Only problem with recorder is it goes to a defined cell. I would like
>>> my macro to work wherever the cursor is- not always at E:2378 to L:2378
>>>
>>> I appreciate the help!
>>>
>>> Thanks
>>> Paul
>>>
>>
>>
>
>

Does the same approach work to prompts to load a file into a worksheet so
that I chose the file/path and filename instead of having it cast in stone
each time?

Thanks
Paul


"Don Guillett" <[email protected]> wrote in message
news:%[email protected]...
> glad to help
>
> --
> Don Guillett
> SalesAid Software
> [email protected]
> <[email protected]> wrote in message
> news:[email protected]...
>> Works like a charm. Thanks!
>>
>> Paul
>>
>>
>> "Don Guillett" <[email protected]> wrote in message
>> news:%23%[email protected]...
>>> Have you tried without
>>>
>>> Range("E2378:L2378").Select
>>>
>>> --
>>> Don Guillett
>>> SalesAid Software
>>> [email protected]
>>> <[email protected]> wrote in message
>>> news:[email protected]...
>>>>I am trying to get a macro to delete a group of cells as I parse down
>>>>through the block of instrument data, to weed out blanks or corrupt
>>>>data. I just want the macro to delete the 4 or 5 adjacent cells and move
>>>>the data block up (similar to a right click delete- which asks if you
>>>>want up, right left or entire row, etc
>>>>
>>>> Sub delete()
>>>> '
>>>> ' delete Macro
>>>> ' Macro recorded 5/5/2006 by Paul
>>>> '
>>>> ' Keyboard Shortcut: Ctrl+d
>>>> '
>>>> Range("E2378:L2378").Select
>>>> Selection.delete Shift:=xlUp
>>>> End Sub.
>>>>
>>>> Only problem with recorder is it goes to a defined cell. I would like
>>>> my macro to work wherever the cursor is- not always at E:2378 to L:2378
>>>>
>>>> I appreciate the help!
>>>>
>>>> Thanks
>>>> Paul
>>>>
>>>
>>>
>>
>>
>
>