Move up other cell values one row after a row deletion code has been run

[ipbr21054]

Morning,

I have the working code supplied below but wish to add some code or get advice for adding some extra code to it.

On my worksheet called G INCOME i have a section which contains some information regarding my customers,i have attached a screen shot for you.
The first entry will always be N4

So the code will delete a customers entry lets say in this case ISABEL of which is at row 13
It deletes it fine but this leaves row 13 empty.
The advice i need would be to copy / paste the entries below & move them up 1 row.

Currently im having to manualy do this each time.

For your information i also have other info on the worksheet so we need to keep within the range of this otherwise that rows info will also be deleted / altered etc
Thanks.

Private Sub DeleteCustomer_Click()
    If ActiveCell.Column = 14 And ActiveCell.Row > 3 And ActiveCell.Value <> "" Then
    Dim Answer As Long
    Answer = MsgBox("ARE YOU SURE YOU WISH TO DELETE THIS CUSTOMER", vbYesNo + vbCritical, "DELETE GRASS CUTTING CUSTOMER")
    If Answer = vbYes Then
        ActiveCell.Resize(1, 5).ClearContents
    Else
        Exit Sub
    End If
    Else
       MsgBox "NO CUSTOMER WAS SELECTED", vbExclamation, "DELETE GRASS CUTTING CUSTOMER"
    End If
End Sub

 

[mumps]

Change the formula in the GRASSTABLE named range to: =OFFSET('G INCOME'!$N$4,0,0,COUNTA('G INCOME'!$N:$N),1)

 

[ipbr21054]

You mean here

 

[mumps]

Yes.

 

[ipbr21054]

Ok done.
Its now ok.

Apologies as that was my fault

 

[mumps]

No apologies necessary. I'm glad it worked out.