VBA to delete cells based on cell selected and move cells up

Hi guys

i have a bunch of data:

Register	Read	Date	Usage
R0001	8675	12-Nov-13	21.82142857
R0001	9286	10-Dec-13	21.90625
R0001	10688	12-Feb-14	25.04761905
R0001	11214	05-Mar-14	22.89795918
R0001	12336	23-Apr-14	24.33333333
R0001	12993	20-May-14	19.95714286
R0001	14390	29-Jul-14	19.35483871
R0001	14990	29-Aug-14	20.32142857

I want to create a button where a person can select a cell and when they push the button it will remove all data in the 4 cells in that range. It then needs to move all other data up to replace what will be an empty row. It then needs to refresh the code in the usage.

Refreshing the code bit i can do but i can't seem to get the rest of it to work.

I dont want to delete the whole row as i have other data in those rows, i just want those 4 cells removed.

eg if i select d3 from above (21.90625) i want A,B and C3 all removed and then everything below moved up to replace.

Any help would make me a very happy bunny.

Cheers guys/girls.

Test this on a backup. I don't think that it will do what you expect.

You can attach a file. Click the Go Advanced button in lower right of a message, and then click the paperclip icon to Browse and Upload your simple example file.

Code:

---

Sub Main() 
  Range("A" & Selection(1).Row, "D" & Selection(1).Row).Delete Shift:=xlUp
End Sub

---

That's pretty much what i was after! I realise now where i was going wrong :(